Private Sub validar()
Dim path As String
Dim consulta As String
Dim Cn as adodb.connection, Datos as adodb.recordset

path = App.path & "\mantenimiento.mdb"

set cn = new adodb.connection
cn.open conectionstring, usuario, clave

set Datos=new adodb.recordset
Datos.open "select a,b,c from XXX where ... order by ...",

if datos.eof then
 ' el recordset está vacío
endif

...

dim Fecha as date
fecha=month(now)
label1=fecha

label1=month(now)

sub CmdStart_Click()
if CmdStart.tag="" then
CmdStart.tag="0"
dtStart = Now
blnRun = True
Me.Timer1.Interval = 1000
else
CmdStart.tag=""
blnRun = False
Me.txtStopwatch.Text = "00:00:00"
Me.Timer1.Interval = 0
endif
End Sub