Attribute VB_Name = "Module1"
Public Str_path As String
Public Cname As String  '登陸時傳用戶名
Public Cdate1 As String '傳日期(收入情況列表)
Public Cdate2 As String '傳日期
Public AA As Boolean     '判斷是否選擇月份

'ADO編程模型連接數據庫
Public Function Connectstring() As String
'Dim Str_path As String
Str_path = CurDir() & "\" & "MISER.MDB"
Connectstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & Str_path & "';Persist Security Info=False"
End Function
'ADO編程模型連接數據庫
Public Function ExeCutesql(ByVal Sql As String, Msgstring As String) As ADODB.Recordset
       Dim Cnn As ADODB.Connection
       Dim Rst As ADODB.Recordset
       Dim Stokens() As String '數組
       
       On Error GoTo executesql_error
       Stokens = Split(Sql) '將sql語句按關鍵字保存在數組中
       Set Cnn = New ADODB.Connection
       Cnn.Open Connectstring
       
       If InStr("INSERT,DELETE,UPDATE", UCase$(Stokens(0))) Then
          Cnn.Execute Sql
          Msgstring = Stokens(0) & "查詢成功"
       Else
          Set Rst = New ADODB.Recordset
          Rst.Open Trim$(Sql), Cnn, adOpenKeyset, adLockOptimistic '重服務器中提取符合要求的記錄集
          Set ExeCutesql = Rst
          Msgstring = "查詢到" & Rst.RecordCount & "條記錄"
       End If
       
executesql_exit:
     Set Rst = Nothing '釋放記錄集
     Set Cnn = Nothing '釋放連接語句
     Exit Function
executesql_error:
       Msgstring = "查詢錯誤:" & Err.Description
       Resume executesql_exit
End Function