Visual Basic and ADO 1

[glove]

When I use the following code:

Private mCN as Connection
Private mRS as New Recordset

Private Sub OpenConnection(strPath as String)
If Not (mCN Is Nothing) then
mCN.close
set mCN = nothing
End if

Set mCN = New Connection

With mCN

.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" _
& Strpath
.cursorlocation = adUseClient
.Open
End with
End Sub

I get the following Error:

"Run Time Error 3706 --- ADO could not find the specified provider"

Any suggestions? [sig][/sig]

 

[mvanbro]

"Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & strpath

Try this
[sig][/sig]

 

[TRYP]

This works

dim mCN
dim mRS

set mCN =new ADODB.connection
set mRS= new ADODB.recordset

mCN.Provider="Microsoft.jet.oledb.3.51"
mCN.Open "data source=" & strPath & ";user id=admin;Persist Security Info=False"


[sig][/sig]