跟著書上操作了，代碼如下：
Option Compare Database
Option Explicit
Public check As Boolean
'通過字串StrQuery 所參考的SQL陳述句回傳一個 ADO.Recordset 物件
Public Function GetRS(ByVal StrQuery As String) As ADOBE.Recordset
Dim rs As New ADOBE.Recordset
Dim conn As New ADOBE.Connection
On Error GoTo GetRS_Error
Set conn = CurrentProject.Connection
rs.Open 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
為何運行顯示用戶定義型別未定義呢？
菜鳥使用的是win7 64bit，access2010中的vb建立模塊，office好像是裝的32位，不知道會不會有影響。 求老師大神解答
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/101099.html
上一篇：VB菜鳥求大神幫忙