VB 6.0 Problema al usar RecordSet

[chcma]

Buenas, vereis, tengo un epqueño form, con un Cmbo y estoy haciendo lo siguiente en el Load:

Private Sub Form_Load()
Dim CN As New ADODB.Connection
CN.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrador\Escritorio\Prueba\DbLibros. mdb;Persist Security Info=False")
Dim DR As New ADODB.Recordset

DR.Open ("select * from Libros")
While Not DR.EOF
CmbCombo.AddItem (DR.Fields(1))
Wend
End Sub

Sin embargo, al ejecutar el código me sale el siguiente error:

"No se puede utilizar la conexión para realizar esta operación. Está cerrada o no es válida en este contexto".

Sin embargo, la conexión me la abre. ¿Alguien sabe por que peude ser?

Desde ya, gracias.

[chcma]

Bueno, desde ya, Gracias a todos. Ya lo resolvi, puse lo siguiente:

Dim CN As New ADODB.Connection
Dim R As New ADODB.Recordset

CN.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrador\Escritorio\Prueba\DbLibros. mdb;Persist Security Info=False")

Set R = CN.Execute("Select * from libros")
While Not R.EOF
CmbCombo.AddItem (R.Fields(1))
R.MoveNext
Wend