Visual Basic - SQL que dificil ha sido solucionar este problema

tengo este codigo para una consulta donde utilizo una lista, en ella querio ver todos los registros de una base de dato y que cuando pulse uno de ellos pueda presentarme todo los CAMPOS EXCITENTE DE ESE REGISTRO . Para ello utilizo el siguente codigo pero recibo este ERROR que me vuelve loco.
[Microsoft ][ Controlador de ODBC Microsoft Access] Poco parametros, se esperaba 1.
NO SE QUE SIGNIFICA ESTE CODIGO EL error es marcado en donde abro el RECORDSET
ALGO ASI
rs.open

ESTE ES TODO EL CODIGO QUE UTILIZO PARA ESTA CONSULTA
CREO QUE ES UN DESAFIO

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

Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.ConnectionString = \"Dsn=basepro;\"
cn.Open
Set mrs = New ADODB.Recordset
mrs.LockType = adLockOptimistic
mrs.CursorType = adOpenKeyset
End Sub
Private Sub CmdAñadir_Click()
Dim Consul As String
\'abrir un recorset vacio
Consul = \"select * \" & _
\"from tinven \" & _
\"where clave01= 0\"
mrs.Source = Consul
Set mrs.ActiveConnection = cn
mrs.Open
mrs.AddNew
mrs.Fields(\"codigo\") = txtCoo.Text
mrs.Fields(\"Unidad\") = txtUnidad.Text
mrs.Fields(\"costo\") = txtCosto.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 Tinven \" & _
\"where codigo =