ayuda en mostrar los datos del combobox

tema enviado por peyin en Visual Basic .NET
tema iniciado el 14/11/2008

 ya puedo seleccionar los elementos de busqueda el problema que tengo ahora es que si busco por identificacion perfecto me muestra los datos en el datagridview de la identificacion que estoy buscando pero si busco por ejemplo por nombre no me muestra nada, yo tengo dos tablas una de empleados y otra de Motivos_ausencias yo las relaciono con la identificacion estos son loscampos  

tabla empleados campos: Identificacion,NombreEmpleado,PrimerApellido,SegundoApellido,Direccion,Telefono,Celular,Sexo,Cargo,Estado,Imailt

tabla Motivos_Ausencia campos: NombreCausa,FechaCausa,HoraCausa,Observaciones,Identificacion.  lo que no se es que si tengo que utilizar el innerjoin en verdad todavia no se como utilizarlo en visualbasic.net aqui les muestro el codigo para que me hagan el favor y me ayuden con esto aqui les muestro el codigo si algo esta mal les agradesco y me avisan:

     

Private Sub Buscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buscar.Click

Dim da As New DataSet

If Cbobuscar.Text = "Identificacion" Then

conectar()

Dim cmd As SqlCommand = New SqlCommand

cmd.Connection = con

cmd.CommandText = "SELECT * FROM Motivo_Ausencia" + _

" WHERE (Identificacion like '" & Trim(txtbuscar.Text.ToUpper) & "%')"

Dim dr As SqlDataReader = cmd.ExecuteReader()

Dim xcombo As DataTable = New DataTable

xcombo.Load(dr)

MotivoAusenciaBindingSource.DataSource = xcombo

seleccionado = xcombo

If Cbobuscar.Text = "NombreEmpleado" Then

conectar()

Dim cmd2 As SqlCommand = New SqlCommand

cmd2.Connection = con

cmd2.CommandText = "SElECT * FROM Motivo_Ausencia " + _

"WHERE (NombreEmpleado Like '" & Trim(txtbuscar.Text.ToUpper) & "%')"

Dim dr2 As SqlDataReader = cmd.ExecuteReader()

Dim xcombo2 As DataTable = New DataTable

xcombo2.Load(dr2)

MotivoAusenciaBindingSource.DataSource = xcombo2

seleccionado = xcombo2

End If

If Cbobuscar.Text = "Causa" Then

conectar()

Dim cmd1 As SqlCommand = New SqlCommand

cmd1.Connection = con

cmd1.CommandText = "SELECT * FROM Motivo_Ausencia" + _

" WHERE (NombreCausa like '" & Cbomot.Text.ToUpper & "%')"

Dim dr1 As SqlDataReader = cmd.ExecuteReader()

Dim xcombo1 As DataTable = New DataTable

xcombo1.Load(dr1)

MotivoAusenciaBindingSource.DataSource = xcombo1

seleccionado = xcombo1

End If

End If

End Sub

se me olvidaba tengo dos combox el combo que me escoje el tipo de busqueda yel otro es el de causas que muestra una serie de opciones las cual debo escojer el problema es que cuandoes escojo la opcion no me muestra nada en la grilla. espero que me este explicando bien y gracias por sus ayudas. que esten bien y que DIos los bendiga.