MySQL - Quien es un Expercto en 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 codigo = cl

el problema radica en que OLEDB no funciona con DNS, mada error en el comando open, debes usar toda la linea esa larga que se pone drive, server, username, password, database, ve al visualbasci, usa un datacontrol conecta usando un StringConection y luego edita las propiedades corta eso y lo pegas en tu cn.ConnectionString= "Dsn=basepro;"
es algo asi como : "PROVIDER= {TU DRIVER SQL/MYSQL/O LO QUE SEA}; DATASOURCE=;INTEGRAL SECURUTY=;PASSWORD=;USERID=;LOCATION=" en ves de "DNS=MyDns"*no uses del DNS sino mas bien la cadena en si que representa el DNS, porque el dns es un archivo que contiene la cadena que es la conecta el control DAO.
OJALA COMPRENDAS LO TE DIGO y salgas del probelma.