Visual Basic - quien es el mas EXPECTO aqui con SQL ayuda

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

Parece que parte del código, y además, por lo que dices la parte donde se produce, el error no ha llegado hasta aqúi, pero por lo que comentas el error se debe a que la sentencia SELECT que usas para abrir el Recordset esta mal escrita, me explico: si quieres recuperar todos los campos (cod, texto, num) de la tabla (Tabla) debes escribir:
SELECT * FROM Tabla, a la cual deberías si es el caso añádir la clausula WHERE, pero posiblemente alguno de los objetos o campos este mal escrito, para localizar dicho error la forma mas sencilla es:
antes de intentar abrir dicho recordset copia la sentencia en el portapapeles:

Si tu código es:

r.open Sentencia, conviertelo en:

clipboard.clear
clipboard.settext sentencia
r.open sentencia

y tras producirse el error pega el contenido del portapapeles en el diseñador de consultas de Access e intenta ejecutar la sentencia en ese momento Access te preguntará por el parámetro al cual falta por dar valor y que debe ser, con toda probabilidad lo que tienes mal escrito.