Bueno pues si lo haces con adodb primero agregas la referencia ADODB
* Proyecto>Referencias (seleccionas Microsoft ActiveX Data object 2.5 Library)
despues declaras el recordset
Public rc As New ADODB.Recordset
Despues declaras la conexion
Public cn1 As New ADODB.Connection
Inicializas la conexion
*si usas odbc
cn1.Open "DSN=nombreOdbc", "usuario", "password"
*si usas ConnectionString
cn1.ConnectionString = "tu cadena de conexion"
abres la conexion
cn1.Open
Creas un Tipo en general
Public Enum RecordType
ReadOnly = 0
Optimistic = 1
ForwardOnly = 2
End Enum
Creas un Sub Procedimiento
Public Sub InitRs(RecordType1 As RecordType, rs As ADODB.Recordset)
Set rs.ActiveConnection = cn1
Select Case RecordType1
Case ReadOnly
rs.LockType = adLockReadOnly
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
Case Optimistic
rs.LockType = adLockOptimistic
rs.CursorLocation = adUseClient
rs.CursorType = adOpenKeyset
Case ForwardOnly
rs.LockType = adLockReadOnly
rs.CursorLocation = adUseClient
rs.CursorType = adOpenForwardOnly
End Select
End Sub
Inicializas el recordet como solo lectura
InitRs ReadOnly, rs
Haces el select
If rs.State = 1 Then rs.Close
rs.Open "select * from archivos"
If rs.EOF = False Then
else
rs.movelast
End If
para mostrar los valores los pones en text
Text1.Text = rs!id
Text2.Text = rs!Nombre
Text2.Text = rs!Telefono
Para que te quede mas claro lo pondre seccionado en otro mensaje