Saludos, tengo el siguiente problema, espero que alguien me pueda ayudar:
Estoy haciendo un aplicacion con bases de datos hay un modulo que se llama consulta, donde el usuario elige si es personal o general.En personal es en donde tengo el problema.La base de datos tiene dos tablas: Una de empleado con sus datos generales y otra que se llama asistencia en donde registro las asistencias:
Lo que deseo es buscar el empleado,mostrar sus datos en texts, y en un datagrid me filtre solo ese empleado de la tabla Asistencia, como una especie de historial.
La busqueda en la tabla general funciona y me muestra los datos en los texts, pero en el grid que debe buscar y filtrar solo el empleado no funciona, Ese es mi gran problema.
Este es el codigo que utilizo para buscar en la primera tabla:

Dim x As Integer,clave As Integer
Dim encon As Boolean
If TextBox1.Text = "" Then
MsgBox("Escriba el número del empleado")
Else
clave = TextBox1.Text()
For x = 1 To BindingContext(DataSet21, "Trabajadores").Count
If clave = TextBox2.Text Then
encon = True
Else
encon = False
BindingContext(DataSet21, "Trabajadores").Position += 1
End If
Next
If encon = True Then
MsgBox("Encontrado", MsgBoxStyle.Exclamation, "Administrador")
Else

MessageBox.Show("no encontrado")
End If
-----
Utilizo OleDbDataAdapter1,OleDbConnection1 y DataSet11

E intente esto para buscar en la segunda tabla:
remDim BDataView As New DataView
'Dim ODataSet As New DataSet
'BDataView.Table = ODataSet.Tables("Asistencia")
'BDataView.RowFilter = "num_empleado" & Me.TextBox14.Text
'DataGrid2.Visible = True
'Me.DataGrid2.CaptionText() = "historial" & Me.TextBox14.Text
'Me.DataGrid2.DataSource = BDataView

Pero me tira error

tambien intente esto:

If TextBox14.Text = "" Then
DataSet31.Clear()
OleDbDataAdapter2.Fill(DataSet31)
MessageBox.Show("error")
Else
Dim strSQL As String = ""
strSQL = "Select * From Asistencia Where num_empleado like '" & TextBox1.Text & "%'"

'OleDbDataAdapter2.SelectCommand.Connection = OleDbConnection2
'OleDbDataAdapter2.SelectCommand.CommandText = strSQL

'DataSet11.Clear()
'OleDbDataAdapter2.Fill(DataSet31)
DataGrid2.DataSource = strSQL
pero me da error....

Gracias de ante mano...