Using OLEDBCONNECTION

[astrodestino]

Hi! In VB 6 I use this sintax to open and read DBs:

AccessConnect = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & App.Path & "\mensajes.mdb"
Conn1.ConnectionString = AccessConnect
Conn1.Open AccessConnect
sqlstm = "SELECT * FROM enviados where datediff('d', fecha,now )> " & borrarviejos 
Set Rs1 = New ADODB.Recordset
Rs1.Open sqlstm, Conn1, adOpenDynamic, adLockOptimistic
ids(contador) = Rs1.Fields.Item("id").value
cuentas(contador) = Rs1.Fields.Item("cuenta").value

I had conectes to the DB via OLEDBCONNECTION in VB.NET how do I read data from the DB?

THank you!

 

[ca8spo]

Have a look at this FAQ

faq796-3727