Tengo un problema que me ha dejado estancado en un proyecto:

Tengo una base de datos en access "base1" con toda la información sobre películas.
Y tengo una Base2 en cuyas tablas hay una columna código para poder hacer referencia a los datos de la base1

Lo que pretendo hacer es una consulta sql para que me dé todas las películas de la Base1 cuyo código aparezca en la Base1.

He probado lo siguiente:

sql1 = "select codigo from peliculas"
Set db1 = New Connection
db1.CursorLocation = adUseClient
db1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Base2.mdb"
Set rs1 = New Recordset
rs1.Open sql1, db1, adOpenStatic, adLockOptimistic
Set db = New Connection
db.CursorLocation = adUseClient
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Base1.mdb"
Set rs = New Recordset
sql = "SELECT * FROM peliculas where codigo = " & rs1!codigo & ""
rs.Open sql, db, adOpenStatic, adLockOptimistic

Dim titem As ListItem
ListPropio.ListItems.Clear
Do While Not rs.EOF
Set titem = ListPropio.ListItems.Add(, , rs!titulo)
'titem.SubItems(1) = rs!descripcion
'titem.SubItems(2) = rs!precio
rs.MoveNext
Loop
rs.Close
db.Close

Lo que me falla es la consulta:

sql = "SELECT * FROM peliculas where codigo = " & rs1!codigo & ""

... y sólo me salen los datos correspiondientes al primer registro de rs1.codigo
Alguien me puede ayudar.
Gracias

Edited by: locutus