Llenar un Recorset con los datos de un ListBox

[KiaMaria]

Hola amigos:
Estoy trabajando con Visual Basic 6 y necesito introducir todos los datos que estan seleccionados de un ListBox a un registro pero me da error porque me dice que no está abierto. El código es el siguiente:

Dim rsTemp1 As ADODB.Recordset
Dim rsTemp2 As ADODB.Recordset
Set rsTemp2 = New ADODB.Recordset
Set rsTemp1 = New ADODB.Recordset

strSql = "SELECT Recurso.NomeCientifico As Recurso FROM Recurso"
rsTemp1.Open strSql, bd, adOpenKeyset, adLockOptimistic, adCmdText

If Not rsTemp1.EOF Then
rsTemp1.MoveFirst
For i = 0 To rsTemp1.RecordCount - 1
If LstRecursos.Selected(i) Then
rsTemp2.AddNew (rsTemp1!Recurso)
End If
rsTemp1.MoveNext
Next
End If

Si pongo solo rsTemp2.Open me da error y no tengo strSql que ponerle porque lo quiero llenar con los datos del ListBox
Muchas Gracias

[The_Pretorian]

Buenos Dias:
Prueba asi a ver que resultado te da..
Atte
Jorge Diaz

Iniciado por KiaMaria

Hola amigos:
Estoy trabajando con Visual Basic 6 y necesito introducir todos los datos que estan seleccionados de un ListBox a un registro pero me da error porque me dice que no está abierto. El código es el siguiente:

Dim rsTemp1 As ADODB.Recordset
Dim rsTemp2 As ADODB.Recordset
Set rsTemp2 = New ADODB.Recordset
Set rsTemp1 = New ADODB.Recordset

strSql = "SELECT Recurso.NomeCientifico As Recurso FROM Recurso"
rsTemp1.Open strSql, bd, adOpenKeyset, adLockOptimistic, adCmdText

If Not rsTemp1.EOF Then
rsTemp1.MoveFirst
For i = 0 To rsTemp1.RecordCount - 1
If LstRecursos.Selected(i) Then
'rsTemp2.AddNew (rsTemp1!Recurso)
bd.Execute ("INSERT INTO rsTemp2 VALUES()") End If
rsTemp1.MoveNext
Next
End If

Si pongo solo rsTemp2.Open me da error y no tengo strSql que ponerle porque lo quiero llenar con los datos del ListBox
Muchas Gracias