´Declaro variables para el acceso a la BD
dim BD as Database
dim Rd as RecordSet

'Abro la BD
Set BD = Workspaces(0).Opendatabase("c:\..\BD.mdb", Lectura, Excritura, Password)
'Abro la tabla o en este caso hago un filtrado
set Rd = BD.OpenRecordset("SELECT * FROM Tabla WHERE Campo = '" & text1.text & "';")
'Checo si encontro registros
if Rd.RecordCount > 0 then
   ' Encontro registros
else
   ' msgbox "No hay registros para mostrar"
end if
'Cierro la tabla y la BD
Rd.close
BD.close

'Libero memoria
set Rd = nothing
set BD = nothing

data1.DabaseName = "tuBD.mdb"
data1.RecordSource = "Tabla"
data1.refresh


If Data1.Recordset.RecordCount > 0 Then
   data1.Recordset.FindFirst "Campo1 = '" & text1.text & "'"
   if data1.Recordset.NoMatch then
      msgbox "no hay registros que mostrar"
   else
      'encotro unos registros
   end if
end if

Private Sub Workbook_Open()
   Espera 600
End Sub

Private Sub Espera(Segundos As Single)
  Dim ComienzoSeg As Single
  Dim FinSeg As Single
  ComienzoSeg = Timer
  FinSeg = ComienzoSeg + Segundos
  Do While FinSeg > Timer
      DoEvents
      If ComienzoSeg > Timer Then
          FinSeg = FinSeg - 24 * 60 * 60
      End If
  Loop
  
  Hoja1.Protect
  
End Sub

[autorun]
OPEN="tu aplicación.exe"
ICON="tu icono.ico" <- en caso de que quieras cambiar el icono en el explorador del windows"

Private Sub Form_Resize()
    listview1.Width = Me.ScaleWidth 
    listview1.Height = Me.Scaleheight
End Sub

Const EWX_LOGOFF = 0
Const EWX_SHUTDOWN = 1
Const EWX_REBOOT = 2
Const EWX_FORCE = 4

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Private Sub Form_Load()
    msg = MsgBox("This program is going to reboot your computer. Press OK to continue or Cancel to stop.", vbCritical + vbOKCancel + 256, App.Title)
    If msg = vbCancel Then End
    'reboot the computer
    ret& = ExitWindowsEx(EWX_FORCE Or EWX_REBOOT, 0)
End Sub

private sub Command1_Click()
dim Bd as database
dim Tb as database


set BD = workspaces(0).Opendatabase("c:\....\tu_BD")
set Tb =BD.OpenRecordset("SELECT * FROM Tabla " & _
                                         "WHERE Campo = '" & text1.text & "';")

If tb.Recordcount > 0 then
    'Encontro registros que cumplen la condición 
else
    Msgbox "no encontre nada de nada"
end if

tb.close
set tb = nothing

BD.close
Set BD = Nothing


end sub