Private Sub Rsvactiv_GotFocus()
On Error Resume Next
Servicios
Limpia el Combobox Rsvactiv, y lo llena con los datos del campo IIdent de
la tabla Servicios
Rsvactiv.Clear
dbServicios.DatabaseName = frmMain.Ap_Path & frmMain.dbName
dbServicios.RecordsetType = 1
dbServicios.RecordSource = "Select Distinct IIdent FROM Servicios"
dbServicios.Refresh
dbServicios.Recordset.MoveFirst
   Do While Not dbServicios.Recordset.EOF
     Rsvactiv.AddItem dbServicios.Recordset.Fields("IIdent").Value
     dbServicios.Recordset.MoveNext
   Loop
End Sub
