模块代码看不懂

Public Function GetRs(ByVal strQurey As String) As ADODB.Recordset
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection

On Error GoTo GetRs_error
Set conn = CurrentProject.Connection
rs.Open strQurey, conn, adOpenKeyset, adLockOptimistic
Set GetRs = rs
GetRs_Exit:
Set rs = Nothing
Set conn = Nothing
Exit Function
GetRs_error:
MsgBox (Err.Description)
Resume GetRs_Exit

End Function
Public Sub ExecuteSql(ByVal strCmd As String)
Dim conn As New ADODB.Connection
On Error GoTo ExecuteSQL_Error
Set conn = CurrentProject.Connection
conn.Execute Trim$(strCmd)
ExecuteSQL_Exit:
Set conn = Nothing
Exit Sub
ExecuteSQL_Error:
MsgBox (Err.Description)
Resume ExecuteSQL_Exit
End Sub

Public Sub EnterToTab(keyasc As String)
If keyasc = 13 Then
SendKeys "{TAB}"
End If
End Sub
这3段模块中的

VB代码看不懂怎么办？ 蓝屏代码 看不懂. linux 代码很多看不懂 ASP代码看不懂 qq空间模块代码 51自定义模块代码 看不懂网页中的这个代码 asp问题，一段代码，看不懂！！ 看不懂的asp网站代码? 这段代码我看不懂