Foros del Web - conectarse a base de datos

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