Private Sub Form_Load()
cs.Provider = "Microsoft.jet.OLEDB.4.0."
cs.ConnectionString = "llamados.mdb"
cs.Open
rs.Open " select * from numero", cs, adOpenKeyset, adLockOptimistic
Label14.Caption = Now
Label18.Caption = Format(Now(), "Hh:mm:ss")
End Sub