what the problem with this code

#1 (**permalink**) 27-Oct-2005, 08:58 AM

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"
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/information-technology/5865-what-the-problem-with-this-code.html
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"
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=5865

Thanks in advance

Alejandro Carnero

#2 (**permalink**) 27-Oct-2005, 08:58 AM

Try:

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

--
HTH
Van T. Dinh
MVP (Access)

"alecarnero" wrote in message
news:eoeEMEk2FHA.2292@tk2msftngp13.phx.gbl...
>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"
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=5865
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=5865
> 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
>
>