请问下面代码是什么意思

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 & "\Table.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