北京市朝阳区酒店:vb+access的这段代码每句都是什么意思啊?

vb+access的这段代码每句都是什么意思啊?完全看不懂

Public gUserName As String
Public flag As Integer
Public gSQL As String
Public kqsql As String
Public kqsql2 As String
Public ArecordID As Integer
Public LrecordID As Integer
Public OrecordID As Integer
Public ErecordID As Integer
Public iflag As Integer

Public Function TransactSQL(ByVal SQL As String) As ADODB.Recordset
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 & "\Person.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}"
End If
End Sub

Sub main()
Dim fLogin As New frmLogin
fLogin.Show vbModual
End Sub