Como puedo relacionar dos tablas de access en un mshflexgrid de vb6 ¿?

hola =)

estoy trabajando con un formulario el cual contiene un mshflexgrid en el cual quiero mostrar o cargar dos tablas de una base de datos creada en access...

las tablas son:

1. IMINGREDIENTE

campos: IMI-INGREDIENTE(numérico), IMI-NOMBRE(texto)

2. INGSICATRACKER

campos: INGSICA(numérico), INGTRACKER(texto)

estas tablas deben relacionarse por los dos campos d tipo numérico

este es mi código:

Private Sub Form_Load()
Dim conexión As New ADODB.Connection 'la conexión a la base de datos Access
path = App.path & "\ALIMENTO.mdb"

'conexión
conexión.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
path & ";Persist Security Info=False"
conexión.CursorLocation = adUseClient
conexión.Open

Dim rs As New ADODB.Recordset
sqlcadena = "select [IMINGREDIENTE].IMI-INGREDIENTE,[IMINGREDIENTE].IMI-NOMBRE, [INGSICATRACKER].INGSICA, [INGSICATRACKER].INGTRACKER FROM [IMINGREDIENTE] INNER JOIN INGSICATRACKER on [IMINGREDIENTE].IMI-INGREDIENTE = [INGSICATRACKER].INGSICA"
rs.Open sqlcadena, conexión, adOpenKeyset, adLockOptimistic
Set Catalogo.DataSource = rs

End Sub

me marca un error en la siguiente linea

rs.Open sqlcadena, conexión, adOpenKeyset, adLockOptimistic

el cual dice: no se han especificado valores para algunos parámetros requeridos.

agadreceria muchísimo su ayuda espero y pueda aclarar un poco mi situación... De antemano mil gracias =)