実行時エラー "424"オブジェクトが必要/ Ms Access VBA ./オブジェクトが宣言されていますが、エラーが発生しています。

Question

プライベートサブ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" 

「ERRORプログラムは

conn1.Open (Server.Mappath("G:\Data\StudentDB.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 

End Subの

Answer 1

Serverがその正確な行で定義されていない下の行に達します。 SET Conn1 = CurrentProject.Connectionを使用すると、最初から新しい接続を作成する必要がなくなります。