Visual Basic.NET - Instrucción SQL no válida; se esperaba 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT' o 'UPDATE'.

No entiendo cual es el problema en mi código alguien me puede ayudar? el error me arroja
"Instrucción SQL no válida; se esperaba 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT' o 'UPDATE'."
Dim comando As New OleDb.OleDbCommand
Dim adaptador As New OleDb.OleDbDataAdapter
Dim registro As New DataSet
Dim consulta As Char
Dim lista As Byte
If TxtSalida.Text = "" Then
consulta = "SELECT autonum, id, nombre, apellido_pat, apellido_mat, entrada, salida FROM Registro WHERE id = " & TxtId.Text & ""
MsgBox(consulta)
adaptador = New OleDb.OleDbDataAdapter(consulta, conexion) "en esta linea marca el error"
registro = New DataSet
adaptador.Fill(registro, "Registro")
lista = registro.Tables("Registro").Rows.Count
If lista <> 0 Then
TxtNombre.Text = registro.Tables("Registro").Rows(0).Item("nombre")
TxtAPat.Text = registro.Tables("Registro").Rows(0).Item("apellido_pat")
TxtAMat.Text = registro.Tables("Registro").Rows(0).Item("apellido_mat")
TxtEntrada.Text = registro.Tables("Registro").Rows(0).Item("entrada")
TxtSalida.Text = registro.Tables("Registro").Rows(0).Item("salida")
Else
MsgBox("El ID no existe", vbInformation, "ID inexistente")
End If
Else
MsgBox("Debe de ingresar un ID")
TxtId.Focus()
End If

Hola,

Probablemente tienes error sintaxis en la liena :
La final no me parece bien :
Si id es un tipo numérico, no debes escribir apostrofo ni comillas al fin del frase :
Si id es un tipo "String", debes escribir apostrofo cerca TxtId.Text :
.
El TxtId.Text no puede ser vacía para la ejecución.

Espero que este te ayudara ...