运行时错误 "424" 需要对象 / MS Access VBA ./ 声明对象但仍然是错误 有人会发现错误吗？

Question

private sub method3_click((

Dim conn1 As ADODB.Connection
Dim recSet As ADODB.Recordset
mySQL = "Select * from Contact"
Set conn1 = New ADODB.Connection
conn1.Provider = "Microsoft.ACE.OLEDB.12.0"

'程序到达下面的线时

conn1.Open (Server.Mappath("G:DataStudentDB.accDB"))
 Set recSet = New ADODB.Recordset
 recSet.Open mySQL, conn1, adOpenDynamic, adLockOptimistic
     mobile = recSet.Field(3)
 recSet.Close
 conn1.Close
Set conn = Nothing
Set recSet = Nothing

结束sub

Answer 1

Server在该确切行中未定义。您可以使用SET Conn1 = CurrentProject.Connection避免从头开始创建新连接。