请问这些程序是什么意思?

[jingjing312156]

If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Then
rs.Open Trim$(sql), con, adOpenKeyset, adLockOptimistic
Set TransactSQL1 = 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

[OracleRoob]

--如过strArray数组的第一个元素的值是select
If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Then
--打开记录集
rs.Open Trim$(sql), con, adOpenKeyset, adLockOptimistic

--设置TransactSQL1 等于记录集rs
Set TransactSQL1 = rs

--设置 iflag 的值为1
iflag = 1
Else
--如果数组的第一个元素不是select，那就执行这个SQL
con.Execute sql

--设置 iflag 的值为1
iflag = 1
End If


TransactSQL_Exit:
--销毁rs和con
Set rs = Nothing
Set con = Nothing
Exit Function

TransactSQL_Error:
--给出错误提示信息
MsgBox "查询错误：" & Err.Description
iflag = 2

--执行代码出错后，转到TransactSQL_Exit
Resume TransactSQL_Exit
End Function

[wwwwb]

自己可以试试，应该不难
--如过strArray数组的第一个元素的值是select
If StrComp(UCase$(strArray(0)), "select", vbTextCompare) = 0 Then
--用ADO打开记录集
rs.Open Trim$(sql), con, adOpenKeyset, adLockOptimistic
--设置TransactSQL1 等于记录集rs
Set TransactSQL1 = rs
--设置 iflag 的值为1
iflag = 1
Else
--如果数组的第一个元素不是select，那就执行这个SQL
con.Execute sql
--设置 iflag 的值为1
iflag = 1
End If

TransactSQL_Exit:
--销毁rs和con
Set rs = Nothing
Set con = Nothing
Exit Function
TransactSQL_Error:
--给出错误提示信息
MsgBox "查询错误：" & Err.Description
iflag = 2

--执行代码出错后，转到TransactSQL_Exit
Resume TransactSQL_Exit
End Function