Hola,
disculpen mi codigo para consultas es este:
Dim miTabla As DataTable = DboDataSet.k
Dim cfilas As DataRowCollection = miTabla.Rows
Dim filaBuscada() As DataRow
Dim NL As String = Environment.NewLine
Dim criterio As String = "nombre like '*" & TextBox5.Text & "*'"

filaBuscada = miTabla.Select(criterio)
If (filaBuscada.GetUpperBound(0) = -1) Then
MessageBox.Show("no se encontrton registro coincidentes", "Buscar")
Exit Sub
End If
Dim i, j As Integer
For i = 0 To filaBuscada.GetUpperBound(0)
If (MessageBox.Show("¿Es este el nombre buscado?" & NL & TextBox5.Text & NL, "Buscar", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes) Then
For j = 0 To cfilas.Count - 1
If (cfilas(j).Equals(filaBuscada(i))) Then
BindingContext(DboDataSet, "k").Position = j

End If
Next j
Exit For
End If

Next i
y si busca los registros pero pues no los muestra en os textbox entonces kmo le hago para k se muestren los registros en el textbox

Configuración: Windows Vista Internet Explorer 7.0