connecting visual basic with ms access database

[jayantim]

Hi !

I want to know the connection code for connecting visual basic and microsoft access. plese give the detail code for this connection. Actually I tried one code which is as follows:

Dim cn as connection
Dim rs as recordset

Private Sub form()
set cn = new connection
set rs = new recordset

cn.open ="Provider Microsoft Access OLEDB jet4.0, database.mdb"
rs.open"([source],cn,adlockoptimistic,adcmdtext)"

End Sub

I am getting error for the above code as "expected =" after 'rs.open'.

Can u please provide me with the correct code as soon possible?

Waiting for reply

Thanks
Jayanti

[jamesd0142]

What version of vb are you using?

[pureenhanoi]

Hi !

I want to know the connection code for connecting visual basic and microsoft access. plese give the detail code for this connection. Actually I tried one code which is as follows:

Dim cn as connection
Dim rs as recordset

Private Sub form()
set cn = new connection
set rs = new recordset

cn.open ="Provider Microsoft Access OLEDB jet4.0, database.mdb"
rs.open"([source],cn,adlockoptimistic,adcmdtext)"

End Sub

I am getting error for the above code as "expected =" after 'rs.open'.

Can u please provide me with the correct code as soon possible?

Waiting for reply

Thanks
Jayanti

the statement Rs.Open is invalid gramma
it must be: rs.Open "[Source]", cn, adOpenStatic, adLockOptimistic, adCmdText

and the connection String of cn is invalid too. I'm not sure can it work without correcting, but you must use this:
Cn.Open "Provider=Microsoft.Jet.Oledb.4.0; Data Source=C:\database.mdb;"