Esta fue la solución que plantee de todas maneras gracias
Código:
Dim cControl As Control, cCriterio As String = ""
For Each cControl In Me.Controls
If (TypeOf cControl Is System.Windows.Forms.TextBox) Or (TypeOf cControl Is System.Windows.Forms.ComboBox) Then
If cControl.Text <> "" Then
If cControl.Tag = "nombre" Or cControl.Tag = "direccion" Or cControl.Tag = "pais" Or cControl.Tag = "profesion" Then
cCriterio = cCriterio + cControl.Tag + " LIKE " + "'" + "%" + cControl.Text + "%" + "'" + " AND "
Else
cCriterio = cCriterio + cControl.Tag + " = " + cControl.Text + " AND "
End If
End If
End If
Next cControl
cCriterio = Mid(cCriterio, 1, cCriterio.Length - 4)
ConsultarDatos("empleados", cCriterio)
Me.listado.DataSource = Sdatatable
Saludos.