En todo este código :
Código vb:
Ver originalBD.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 :
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.