Object Variable or With Block Variable Not Set

[smartchap]

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.

[debasisdas]

check if you have included proper library (from references)

[smartchap]

Thanks changed reference from MSADO 2.6 Library to MSADO 2.8 Library. Now it works.