Private Sub BtnBusqueda_Click()
Dim Consulta As String
If IsNull(Me.CmbCampo) Then
MsgBox "Seleccione un campo", vbExclamation, "Aviso"
Me.txtBusqueda = Null
Me.CmbCampo.SetFocus
ElseIf IsNull(Me.txtBusqueda) Then
MsgBox "Escriba la busqueda", vbExclamation, "Aviso"
Me.txtBusqueda.SetFocus
Else
Consulta = "SELECT Id,Nombre,Apellido,Fecha_nacimiento,Edad,Lugar_nacimiento,identificacion,Sexo,Estado_civil,Direccion,Numero_hijos,Ocupacion,Tipo_vinculacion,Obra,Codigo_az,Discapacidad,Desplazado,Afrocolombiano,Email,Reingreso"
Consulta = Consulta & " FROM Empleados"
Consulta = Consulta & " WHERE " & Me.CmbCampo & " Like '*" & Me.txtBusqueda & "*'"
Me.Lista.RowSource = Consulta
End If
End Sub