ayuda consultas

[atomix02]

hola de nuevo
mil grax Insomnia ya me quedo mi codigo grax a tu ayuda, aqui les dejo el codigo por si a alguien le interesa

Private Sub Command1_Click()
If Option1.Value = True Then
Combo1.Visible = True
'Combo3.Visible = False
Data1.RecordSource = "select * from " & Combo4.Text & " where Fecha='" & Combo1.Text & "'"

Data1.Refresh


Else
If Option2.Value = True Then
Combo2.Visible = True
Combo3.Visible = False
Data1.RecordSource = "select * from " & Combo4.Text & " where Subtipo_de_Servicio='" & Combo2.Text & "'"

Data1.Refresh
Else
If Option3.Value = True Then
'Combo3.Visible = True
'Combo2.Visible = False
Data1.RecordSource = "select * from " & Combo4.Text & " where Estado= '" & Combo3.Text & "'"

Data1.Refresh
Else
MsgBox "No existen contactos"
End If
End If
End If

End Sub

otra vez mil grax