-
Dim cnnADO As New ADODB.Connection
-
Dim rstData As New ADODB.Recordset
-
Dim strCustomer As String
-
Dim strSQL As String
-
Dim strFileName As String
-
-
On Error Resume Next
-
-
'Set up the connection
-
With cnnADO
-
.ConnectionString = "Provider=SQLOLEDB.1;" & _
-
"Password=;" & _
-
"Persist Security Info=True;" & _
-
"User ID=sa;" & _
-
"Initial Catalog=C:\Program Files\Microsoft Visual Studio\VB98\Nwind;" & _
-
"Data Source=MyServer"
-
.Open
-
End With
-
In above code when debugging found that after .Open cnnADO is set equal to the string "Provider=....MyServer". But as soon as control passes End With, cnnADO is equal to "<Object Variable or With Block Variable Not Set.>".
What is the cause please help me.
