杭州滨江西溪明珠:visual basic

Public UserName As String

Sub Main() ' 定义一个窗体级变量，在程序开始的时候打开
Dim fLogin As New frmLogin
fLogin.Show vbModal
If Not fLogin.OK Then
End
End If
Unload fLogin
Set fMainForm = New frmMain
fMainForm.Show
End Sub

Public Function ConnectString() As String '寻找数据库的路径并且打开
Dim strAppPath As String
strAppPath = App.Path
If Right(strAppPath, 1) <> "\" Then
strAppPath = strAppPath & "\"
End If

strAppPath = strAppPath & "Data\Status.mdb"
ConnectString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & strAppPath & ";PWD=MQ2004"
End Function
Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset ’自定义函数执行sql语句并返回记录集
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String

On Error GoTo ExecuteSQL_Error

sTokens = Split(SQL) 用Split函数产生一个包含各个子串的数组 具体的作用是？？

Set cnn = New ADODB.Connection
cnn.Open ConnectString
If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then 是什么意思？？？
cnn.Execute SQL
MsgString = sTokens(0) & " query successful"
Else ？？？
Set rst = New ADODB.Recordset
rst.Open Trim$(SQL), cnn, adOpenKeyset, LockOptimistic ？？？
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

Public Sub EnterToTab(Keyasc As Integer) ？？？
If Keyasc = 13 Then
SendKeys "{TAB}"
End If
End Sub