एमएस एक्सेस वीबीए ट्रैपिंग एसक्यूएल सर्वर कनेक्शन त्रुटि

जब तक आप TableDef को जोड़ने का प्रयास नहीं करेंगे तब तक त्रुटि नहीं होगी

Dim myDB As DAO.Database
Dim myTabledef As DAO.TableDef

On Error GoTo Err_handler

Set myDB = CurrentDb
scn = "odbc;driver=SqLServer;" & _
"DATABASE=myDB;SERVER=myServer;Trusted_Connection=Yes;"
Set myTabledef = myDB.CreateTableDef("l_table")

myTabledef.Connect = scn
myTabledef.SourceTableName = "Table1"
myDB.TableDefs.Append myTabledef

Err_handler:
Debug.Print Err.Number & " " & Err.Description