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