Rellenar TextBot desde access

[NazCarLpa]

Ok de momento lo que hice funciona perfectamente, ahora tengo otro problema que no doy con la solución. Quiero cargar unos Textbox con la búsqueda de uno de ellos pero me da siempre el mismo error.

El error que me da es

No coinciden los tipos de datos en la expresión de criterios.

He mirado y todos los campos están correctos, no entiendo donde está el problema

BD.Rellena("SELECT * FROM VHF WHERE Id = '" & TbId.Text & "'", "BS")

With BD.Dt.Tables("BS")
If .Rows.Count <> 0 Then
'TbId.Text = CStr(.Rows(0).Item(0))
'TbFrecuencia.Text = CStr(.Rows(0).Item(1))
'TbDesplazamiento.Text = CStr(.Rows(0).Item(2))
'TbTono.Text = CStr(.Rows(0).Item(3))
'TbPertenece.Text = CStr(.Rows(0).Item(4))
'TbZona.Text = CStr(.Rows(0).Item(5))
'TbHoraEscucha.Text = CStr(.Rows(0).Item(6))
End If
End With

[Aquaventus]

Hola NazCarLpa, Qué es BD? veo que tienes BD.Dt.Tables("BS"), DT puedo pensar que es un Dataset..

[NazCarLpa]

Si el DT es dataset y la BD es la conexión a la BBDD

[Aquaventus]

OK y el error "No coinciden los tipos de datos en la expresión de criterios." En que linea de ese código cae?. Saludos!.

[NazCarLpa]

Me marca esta.

Ad.Fill(Ds, NomTabla)

[Aquaventus]

ese que acabas de pasar ahora no lo veo en el código inicial... Pon todo el código correcto inicial para visualizarlo mejor.

[NazCarLpa]

Ese que pasé es un trozo de la función que rellena los campos después de cargarlo, el problema no está ahí ya que uso esa función en otra llamada y va correcta :S

[Aquaventus]

En todo este código :

Código vb:

BD.Rellena("SELECT * FROM VHF WHERE Id = '" & TbId.Text & "'", "BS")
 
With BD.Dt.Tables("BS")
If .Rows.Count <> 0 Then
'TbId.Text = CStr(.Rows(0).Item(0))
'TbFrecuencia.Text = CStr(.Rows(0).Item(1))
'TbDesplazamiento.Text = CStr(.Rows(0).Item(2))
'TbTono.Text = CStr(.Rows(0).Item(3))
'TbPertenece.Text = CStr(.Rows(0).Item(4))
'TbZona.Text = CStr(.Rows(0).Item(5))
'TbHoraEscucha.Text = CStr(.Rows(0).Item(6))
End If
End With
 

no veo esto :

Código vb:

Ad.Fill(Ds, NomTabla)
 

por eso te pregunté en qué linea es el error ya que no lo veo ahí... y el mensaje : No coinciden los tipos de datos en la expresión de criterios. supongo que debe ser la linea que me dijiste.

[NazCarLpa]

Porque eso es una función que está en un módulo y la llamo en el SELECT

BD.Rellena("SELECT * FROM VHF WHERE Id = '" & TbId.Text & "'", "BS")