4 lines
137 B
Text
4 lines
137 B
Text
Set objConn = CreateObject("ADODB.Connection")
|
|
Set objCmd = CreateObject("ADODB.Command")
|
|
objConn.Provider = "ADsDSOObject"
|
|
objConn.Open
|