How to get VB6 Recordset functionality from within .Net

[JohnSavage]

This is how I did it in VB6 with Access how do I do these things in VB 2005 with CE Compact?

‘OPEN CONNECTION, CREATE RECORDSET and GET VALUES FROM DATABASE

Set Connect = New ADODB.Connection
Connect.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\maxi.mdb;Jet OLEDB:Database Password=IO34peration;"
Connect.Open
Set RS = New ADODB.Recordset
RS.Open "PetT1", Connect, adOpenKeyset, adLockPessimistic, adCmdTable
RS.MoveFirst
NF = CDbl(Encrypt(RS.Fields("8").Value, KeyJs))
RS.Close
Set RS = Nothing

SAVE DATA

Set RS = New ADODB.Recordset RS.Open "PurejetT1", Connect, adOpenKeyset, adLockPessimistic, adCmdTable
        RS.MoveFirst
        RS.Fields("6").Value = Encrypt((CStr(JF)), KeyJs)
RS.Update
RS.Close
Set RS = Nothing