我编写了一个类模块，如下
Public Function ExecuteSQL(ByVal SQL As String) As ADODB.Recordset
SQL = Trim(SQL)
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

Dim strAppPath As String
strAppPath = App.Path
If Right(strAppPath, 1) <> "\" Then
strAppPath = strAppPath & "\"
End If

strAppPath = strAppPath & "data\wx.mdb"
ConnectString = "DRIVER=Microsoft Access Driver (*.mdb);DSN=" & strAppPath & ";UID=;PWD="
rst.open
Set rst.activeconnection = cnn
rst.LockType = adLockOptimistic
rst.CursorType = adOpenKeyset
rst.open SQL
Set exesql = rst
Set rst = Nothing
Set cnn = Nothing
end function
但是运行时提示“用户定义类型未定义”的错误，本人不知应是如处进行添加，请懂得的给于帮忙，谢谢！

和是不是类模块无关

……你也不告诉我是哪行出错的

检查你有没有引入ADODB的库

Dim strAppPath As String
strAppPath = App.Path
If Right(strAppPath, 1) <> "\" Then
strAppPath = strAppPath & "\"
End If

如果这个过程会多次执行的话建议你用缓存，就算你不想用缓存的话也最好不要用Right(str,1)<>"\"

建议用Len(App.Path)=3代替，毕竟字符串的比较更费时间

郁闷

应该是没有引用ado类库

ioriliao有何郁闷

郁闷原来不是类模块的问题

Public Function ExecuteSQL(ByVal SQL As String) As ADODB.Recordset
SQL = Trim(SQL)
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset

Dim strAppPath As String
strAppPath = App.Path
If Right(strAppPath, 1) <> "\" Then
strAppPath = strAppPath & "\"
End If

strAppPath = strAppPath & "data\wx.mdb"
ConnectString = "DRIVER=Microsoft Access Driver (*.mdb);DSN=" & strAppPath & ";UID=;PWD="
rst.open
Set rst.activeconnection = cnn
rst.LockType = adLockOptimistic
rst.CursorType = adOpenKeyset
rst.open SQL
Set exesql = rst
Set rst = Nothing
Set cnn = Nothing
end function

应该错在这里(红色标志), 提醒:1。 用DSN 做连接源,确定你有没有配置“数据源 (ODBC)”（控制面板中配置）？
2。 Acess建议用Microsoft.JET 做连接源方便点。
给你个例子看带加密的。
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 & "\data\EMSDB.mdb;Jet OLEDB:Database password=" & DBPWDstr
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
Exit Function
TransactSQL_Error:
MsgBox "连接错误:" & err.Description
iflag = 2
Resume TransactSQL_Exit
End Function

谢谢，已弄好