Bases de Datos - problema con recordset en vb6

Buenas compañeros tengo una duda y creo que ustedes podrian ayudarme a resolverla es esta: Estoy trabajando en vb 6.0 utilizando ado para conectarme a una base de datos en sql 2000 mediante objeto recordset toda va bien mientras no use 2 objets rs en un mismo bloque puesto que si uso 2 uno si se queda en tipo objeto y otro se queda en tipo integer aqui el ejemplo:
Private Sub Command9_Click()
Dim rentadasf As Integer, cantidadf As Integer

Dim strsql As String
strsql = "select rentadas from clientes where nombre='" & Combo2.Text & "'"

'If (Text1.Text <> "" Or Text2.Text <> "") And (Text3.Text <> "" Or Text4.Text <> "") Then
'1
If Combo1.Text <> "" And Combo2.Text <> "" Then
Set rsado = cnnADO.Execute(sqlstr)
rentadasf = rsado!rentadas
rentadasf = rentadasf + 1
'2
If rentadasf > 8 Then
MsgBox "ya no puede rentar"
'2
Else

strsql = "select cantidad from peliculas where titulo='" & Combo1.Text & "'"
Set rsado = cnnADO.Execute(sqlstr)

cantidadf = rsado!cantidad
'3
If cantidadf = 0 Then
MsgBox "se agotaron"

como ven rsado!rentadas si lo toma como tipo objeto y rsado!cantidad no espero que me digan que hacer si tengo que resetear a recordset o que sucede de antemano muchas gracias.

error '3265' "Item cannot be found in the collection corresponding to the requested name or ordinal."