Mi DBCombo pierde el foco

[GeoAvila]

mejor aqui te pongo un ejemplo de como hice yo lo mismo pero con unas propinas..
'Este es el listado de meseros.

Código:

Private Sub CboMeseros_Change()
If Me.CboMeseros.Text <> "" Then
    Dim Lectura As String
              Dim adoPrimaryRS As Recordset
              Set adoPrimaryRS = New Recordset
    Lectura = "SELECT   `comisiones_empleados`.`id_empleado`,  `comisiones_empleados`.`fecha` FROM   `comisiones_empleados` WHERE   (`comisiones_empleados`.`id_documento` = '" & CStr(Me.NoFac.Text) & "') AND  (`comisiones_empleados`.`id_empleado` = " & Val(Me.CboMeseros.BoundText) & ") GROUP BY  `comisiones_empleados`.`fecha`"
    adoPrimaryRS.Open Lectura, Cxn, adOpenStatic, adLockOptimistic
    If adoPrimaryRS.BOF = False Then
        Set Me.DataFecha.RowSource = adoPrimaryRS
        Me.DataFecha.ListField = "fecha"
        Me.DataFecha.BoundColumn = "fecha"
        Me.DataFecha.Enabled = True
    End If
End If
End Sub

Esto me deplega las propinas de los meseros por fecha.

Código:

Private Sub DataFecha_Click()
Dim SFecha As String
If Me.DataFecha.Text <> "" Then
    Dim Lectura As String
              Dim adoPrimaryRS As Recordset
              Set adoPrimaryRS = New Recordset
    SFecha = Format(Me.DataFecha.Text, "yyyy/MM/DD")
    Lectura = "SELECT   `comisiones_empleados`.`id_empleado`,  `comisiones_empleados`.`hora` FROM   `comisiones_empleados` WHERE   (`comisiones_empleados`.`id_documento` = '" & CStr(NoFac.Text) & "') AND   (`comisiones_empleados`.`id_empleado` = " & Val(Me.CboMeseros.BoundText) & ") AND    (`comisiones_empleados`.`fecha` = '" & SFecha & "')"
    adoPrimaryRS.Open Lectura, Cxn, adOpenStatic, adLockOptimistic
    If adoPrimaryRS.BOF = False Then
        Set Me.DataHora.RowSource = adoPrimaryRS
        Me.DataHora.ListField = "hora"
        Me.DataHora.BoundColumn = "hora"
        Me.DataHora.Enabled = True
    End If
End If
End Sub
'Aqui deplega la hora que fueron cargadas las propinas, la seleccionas y las lista en un grid.

Private Sub DataHora_Click()
Dim SFecha As String
Dim i As Integer
If Me.DataFecha.Text <> "" Then
    Dim Lectura As String
              Dim adoPrimaryRS As Recordset
              Set adoPrimaryRS = New Recordset
    SFecha = Format(Me.DataFecha.Text, "yyyy/MM/DD")
    Lectura = "SELECT   `comisiones_empleados`.`id_empleado`,  CONCAT(`empleados`.`nombre`,' ',`empleados`.`apellido`) AS nombres,  `comisiones_empleados`.`comision` FROM   `comisiones_empleados`  INNER JOIN `empleados` ON (`comisiones_empleados`.`id_empleado` = `empleados`.`id_empleado`) WHERE   (`comisiones_empleados`.`id_documento` = '" & CStr(NoFac.Text) & "') AND   (`comisiones_empleados`.`id_empleado` = " & Val(Me.CboMeseros.BoundText) & ") AND    (`comisiones_empleados`.`fecha` = '" & SFecha & "') AND    (`comisiones_empleados`.`hora` = '" & CStr(DataHora.Text) & "')"
    adoPrimaryRS.Open Lectura, Cxn, adOpenStatic, adLockOptimistic
    Me.ListadoActual.Rows = adoPrimaryRS.RecordCount + 1
    If adoPrimaryRS.BOF = False Then
        For i = 1 To adoPrimaryRS.RecordCount
            Me.ListadoActual.TextMatrix(i, 1) = adoPrimaryRS!id_empleado
            Me.ListadoActual.TextMatrix(i, 2) = adoPrimaryRS!nombres
            Me.ListadoActual.TextMatrix(i, 3) = Format(adoPrimaryRS!comision, "######0.00")
        Next i
    End If
End If

nos vemos.. espero te sirva el codigo..