Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strConnection As String
Dim strArray() As String
Set con = New ADODB.Connection                  '創建連接
Set rs = New ADODB.Recordset                    '創建記錄集
On Error GoTo TransactSQL_Error
    strConnection = "Provider=Microsoft.jet.oledb.4.0;Data Source=" & App.Path & "\***.mdb"
    strArray = Split(SQL)
    con.Open strConnection                      '打開連接
    If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Then
        rs.Open Trim$(SQL), con, adOpenKeyset, adLockOptimistic
        Set TransactSQL = rs                   '返回記錄集
        iflag = 1
    Else
        con.Execute SQL                        '執行命令
        iflag = 1
    End If
TransactSQL_Exit:
    Set rs = Nothing
    Set con = Nothing
    Exit Function
TransactSQL_Error:
    MsgBox "查詢錯誤：" & Err.Description
    iflag = 2
    Resume TransactSQL_Exit
End Function

Public Sub TabToEnter(Key As Integer)
    If Key = 13 Then                            '判斷是否為回車鍵
    SendKeys "{TAB}"                            '轉換為Tab鍵
    End If
End Sub