conectarse a base de datos

[2Fast To You]

Para conectar a la Base de Datos solo debes de poner:

Código PHP:

  Dim Cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
 
Private Sub Form_Load()
    Cn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & App.Path & "\NombredelaBD.mdb ;Admin=Admin;Pwd=CONTRASEÑA;"
    rs.CursorType = adOpenKeyset
    rs.Open "Select * From Tabla", Cn, adOpenStatic, adLockOptimistic
End Sub 
   

Ahora para que visualice los Datos debes de poner:

Código PHP:

      Set txtNombre.DataSource = rs
    txtNombre.DataField = "campo" 
   

Es decir quedaría asi:

Código PHP:

  Dim Cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
 
Private Sub Form_Load()
    Cn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & App.Path & "\NombredelaBD.mdb ;Admin=Admin;Pwd=CONTRASEÑA;"
    rs.CursorType = adOpenKeyset
    rs.Open "Select * From Tabla", Cn, adOpenStatic, adLockOptimistic
    Set txtNombre.DataSource = rs
    txtNombre.DataField = "campo"
End Sub 
   

Ahora debes de crear los Botones. Ejemplo:

Primero
Atras
Siguientes
Ultimo

Este Codigo que te voy a dar ya viene con todo solo debes de Modificarle El nombre de la Tabla - Nombre de la BD etc y crear los Botones:

Primero cmdPrimero
Atras cmdAnterior
Siguientes cmdSiguiente
Ultimo cmdUltimo

Código PHP:

  Dim Cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
 
Private Sub Form_Load()
    Cn.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & App.Path & "\NombredelaBD.mdb ;Admin=Admin;Pwd=CONTRASEÑA;"
    rs.CursorType = adOpenKeyset
    rs.Open "Select * From Tabla", Cn, adOpenStatic, adLockOptimistic
    Set txtNombre.DataSource = rs
    txtNombre.DataField = "campo"
End Sub
 
Private Sub cmdAnterior_Click()
rs.MovePrevious
cmdSiguiente.Enabled = True
desabilitar
If rs.BOF = True Then
 rs.MoveFirst
 cmdPrimero.Enabled = False
 cmdAnterior.Enabled = False
Else
 refrescar
End If
End Sub
 
Private Sub cmdPrimero_Click()
rs.MoveFirst
refrescar
desabilitar
End Sub
 
Private Sub cmdSiguiente_Click()
rs.MoveNext
desabilitar
If rs.EOF = True Then
   rs.MoveLast
   cmdUltimo.Enabled = False
   cmdSiguiente.Enabled = False
Else
   refrescar
End If
End Sub
 
Private Sub cmdUltimo_Click()
rs.MoveLast
refrescar
desabilitar
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Cn.Close
    Set Cn = Nothing
End Sub
 
Public Sub refrescar()
txtNombre.Text = rs!Nombre
End Sub
 
Public Function validar() As Boolean
If rs.BOF = True Or rs.EOF = True Then
  validar = False
Else
  validar = True
End If
End Function
 
Public Sub desabilitar()
If cmdPrimero.Value = True Then
         cmdSiguiente.Enabled = True
         cmdUltimo.Enabled = True
         cmdAnterior.Enabled = False
         cmdPrimero.Enabled = False
Else
If cmdUltimo.Value = True Then
         cmdSiguiente.Enabled = False
         cmdUltimo.Enabled = False
         cmdAnterior.Enabled = True
         cmdPrimero.Enabled = True
Else
        cmdSiguiente.Enabled = True
        cmdUltimo.Enabled = True
        cmdAnterior.Enabled = True
        cmdPrimero.Enabled = True
End If
End If
End Sub 
   

Soy novato. Asi que solo te doy lo que he probado y funciona.

Saludos