请大家无论如何帮帮忙啊！！

[zhlj99]

在VB头定义了一个函数，用来执行SQL语句，如下
Public Function transactsql(ByVal sql As String) As adodb.Recordset

Dim con As ADODB.connection
Dim rs As ADODB.recordest
Dim strconnection As String
Dim strarray() As String
Set con = New ADODB.connection
Set rs = New ADODB.recordest
On Error GoTo transactsql_error
strconnection = "privider=microsoft.jet.oledb.4.0;data source=C:\Documents and Settings\Administrator\My Documents\eaxm.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
transactsql_error:
MsgBox "查询错误"
iflag = 2
Resume transactsql_exit
End Function

但是系统老是告诉我adodb.recordset是无效的。是不是还要先定义adodb.recordset的啊？请大家告诉我。

[changechange]

Set rs = New ADODB.recordest

你根本就写错了，怎么可能有效哪？

[zhlj99]

那该怎么写啊。谁能告诉我呢？

[zhlj99]

系统告诉我的是定义函数的那个地方错了。说那个地方的ADODB.RECORDSET没有定义。

[zhlj99]

改正确了之后怎么还是不行啊。还是一样的报错。
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 = "privider=microsoft.jet.oledb.4.0;data source=C:\Documents and Settings\Administrator\My Documents\eaxm.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
transactsql_error:
MsgBox "查询错误"
iflag = 2
Resume transactsql_exit
End Function