Error consulta SQL

Hola:
Ojala me puedas orientar soy principiante en este lenguaje.
Al querer hacer una consulta a la tabla Inventario me da un error 3131 error en sintaxis clausula FROM.Que quiero hacer tengo un Text box en el cual al momento de teclear un numero de parte quiero que me aparezcan en un listbox todos los números de parte que coincidan con el del text box.quisiera dar ejemplo más detallado
Dim Dato As String, Mensaje As String
Dim Consulta_SQL As String
Dim Resultado As String
Dim Registro As Long
Dim Relacion As String
Dato = LstBusqueda
Consulta_SQL = "SELECT * FROM Inventario" + _
"WHERE Parte LIKE'" _
+ Dato + "*' ORDER BY Parte;"
Set Partes = Agenda.OpenRecordset(Consulta_SQL, dbOpenSnapshot)
Previamente en General (declaraciones) defini
Option Explicit
Public Agenda As Database
Public Tabla_Agenda As Recordset
Public Busqueda As Recordset
Public Archivo As Database
Public Nombre As Recordset
Public Notas As Recordset
Public Partes As Recordset
y en Form Load
Private Sub Form_Load()
LblFecha = Date
LblHora = Time
centraforma Me
Set Agenda = OpenDatabase("c:\mis documentos\BdRefacciones\refaccion.mdb", False)
Set Tabla_Agenda = Agenda.OpenRecordset("Inventario", dbOpenDynaset)
End Sub
Gracias
Nota:
Este ejemplo lo tome de un libro Visual Basic6 Así de Fácil y lo adapte a mis necesidades.