请VB高手看一看,问题出在哪了? 谢谢!

公共模块(DBcontrol.bas)
Public Function getrs(ByVal strquery As String) As ADODB.Recordset
Dim rs As New ADODB.Recordset
Dim conn As New ADODB.Connection
On Error GoTo getrs_error
conn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=e:\VB程序\后台\temp\后台数据库.mdb"
conn.Open
rs.Open Trim(strquery), 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
conn.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=e:\VB程序\后台\temp\后台数据库.mdb"
conn.Open
conn.Execute Trim(strcmd)
executesql_exit:
Set conn = Nothing
Exit Sub
executesql_error:
MsgBox (Err.Descr

请教问题，请高手进来看一看 高手，请帮忙看一看 请大家帮我看一看 问题出在哪儿??? 开个特色小店,在昆明的郊县.关于税务问题,请高手看一看 请大家看一看JAVA程序出了甚麽毛病? VB 问题,高手请 请帮我看看一个VB简单程序问题出在哪? 恋爱高手请近来看一看 工具栏出了问题，请高手帮帮忙 电脑出了问题，请高手帮忙