Problema con Busqueda

[coyote20]

Hola gente tengo un problema quiero hacer una consulta en una base de datos de access ( OleDbdataadapter()) no me sale la busqueda por nombre le posteo el codigo a ver si estoy haciendo algo mal:

Try
Dim conexion As New OleDbConnection("provider=microsoft.jet.oledb.4.0; data source='C:\bd con access\finaltp4.mdb'")
conexion.Open()

Dim dataadapter As New OleDb.OleDbDataAdapter
Dim consulta As New OleDb.OleDbCommand

Dim buscar_nombre As String
buscar_nombre = Me.TextBox1.Text

consulta = New OleDbCommand("select codigo,nombre,sueldo,codigodepartamento from empleados where nombre = '" & buscar_nombre & "'", conexion)
dataadapter.SelectCommand = consulta

Dim registro As OleDbDataReader = consulta.ExecuteReader()

If registro.Read Then
Me.TextBox2.AppendText(registro("codigo"))
Me.TextBox3.AppendText(registro("nombre"))
Me.TextBox4.AppendText(registro("sueldo"))
Me.TextBox5.AppendText(registro("codigodepartament o"))
Else
MessageBox.Show("registro inexistente")
End If

conexion.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try


es una busqueda por nombre donde en el texbox1 escribo el nombre a buscar y que me muestre sus datos.

bueno espero que me ayuden pues se me hace dificil hacer solo todo con access ya que yo solo uso SQL Server .

bueno saludos

[b-jack-b]

Function consult(ByVal TipoConsulta As String, ByVal Tabla As String) As DataSet
Try
myconn = New SqlClient.SqlConnection("Initial Catalog = basedatos; data source = servidor; integrated security = FALSE;Uid=usuario;Pwd=passwod")
Dim daExis As SqlClient.SqlDataAdapter
Dim dsExis As New DataSet
daExis = New SqlClient.SqlDataAdapter(TipoConsulta, myconn)
daExis.Fill(dsExis, Tabla)
If dsExis.Tables(Tabla).Rows.Count < 1 Then
MsgBox("No hay registros", MsgBoxStyle.Information, "")

End If
Return dsExis
Catch ex As Exception
MsgBox("Error en " & ex.Message, MsgBoxStyle.Critical)
End Try

[coyote20]

no no entiendo tu codigo podria espesificar un poco mas si revisa el mio que ya puse arriba mejor porque estoy haciendo la consulta con OLEDB y no con SQL

saludos

[coyote20]

ya esta solucionado me faltaba cerrar en parentesis el where en la consulta

consulta = New OleDbCommand("select codigo,nombre,sueldo,codigodepartamento from empleados where (nombre = '" & buscar_nombre & "')", conexion)
dataadapter.SelectCommand = consulta


igual muchas gracias