Visual Basic - Quien prodras sacarme de este lio ...

Es un error que tengo que me esta en loqueciendo dices este mensaje
Micrisoft( Control de ODBC Microsof Access.
luego
ERROR DE SINTAXIS EN LA CLAUSURA FROM
Donde aqui
RS.OPEN

Option Explicit
Private cn As ADODB.Connection
Private mrs As ADODB.Recordset

Private Sub CmdCancelar_Click()
Dim Consul As String
'abrir un recorset vacio
Consul = "select*" & _
"from tinve" & _
"where clave01=0"


mrs.Source = Consul
Set mrs.ActiveConnection = cn


mrs.AddNew
mrs.Open
mrs.Fields("codigo") = txtCoo.Text
mrs.Fields("descrip") = txtDee.Text
'mrs.Fields("descrip") = txtCaa.Text
mrs.Update
mrs.Close

cmdLista_Click

End Sub

Private Sub cmdLista_Click()
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Source = "select *" & _
"from tinve" & _
"where codigo = 'Txtcoo' " & _
"order by codigo,unidad"
Set rs.ActiveConnection = cn
rs.Open ' AQUI ES EL JODIO ERROR QUIEN PODRIA AYUDARME
List1.Clear
Do While rs.EOF
List1.AddItem rs.Fields("Codigo") & "" & _
rs.Fields("unidad") & "" & _
rs.Fields("Costo")
List1.ItemData(List1.NewIndex) = rs.Fields("Clave01")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub
Private Sub CmdSalir_Click()
Me.Hide
End Sub

Private Sub Form_Load()
Set cn = New ADODB.Connection%0

El error te lo dice bien claro, ERROR de SINTAXIS.
Si te fijas, pones:
rs.Source = "select *" & _
"from tinve" & _
"where codigo = 'Txtcoo' " & _
"order by codigo,unidad"
Con lo cual quedaria: rs.Source="select *from tinvewhere codigo='Txtcoo'order by codigo,unidad"
Entre el * y el from ha de haber un espacio, entre el tinve y el where otro y entre el 'Txtcoo' y el order otro para que la sentencia SQL este correcta.

Saludos