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
Cita: 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
Cita: 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