Private Sub Form_Load()
'
'DB Servicios
'
dbServicio.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbServicio.RecordSource = "SELECT IIdent FROM Servicios ORDER BY IIdent"
dbServicio.Refresh
Combo2.Clear
dbServicio.Recordset.MoveFirst
Do While Not dbServicio.Recordset.EOF
   Combo2.AddItem dbServicio.Recordset.Fields("IIdent").Value
   dbServicio.Recordset.MoveNext
Loop
SendKeys Format(Now(), "ddmmyy")
End Sub
