Problem in form with ADO

[alecarnero]

I have write this code for populate one access form , i m working with
access XP,

Private Sub Form_Load()
DoCmd.Maximize

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

cn.Provider = "Provider=Microsoft.Jet.OLEDB.4.0"
cn.ConnectionString = "Data Source=E:\work\center\cadastro.mdb"
cn.Open

rs.Open "tbcliente", cn, adOpenDynamic, adLockReadOnly, adCmdTable

rs.MoveFirst
rs.close
cn.close

End Sub

I have this error "3706" "Provider cannot be found"

Thanks in advance

Alejandro Carnero

 

[Sylvain Lafontaine]

Try putting the Provider directly in the connection string (or setting this
property after setting the ConnectionString property?) :

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;User
Id=admin;Password=;"

More info at:

http://www.connectionstrings.com/

http://www.carlprothman.net/Default.aspx?tabid=82