error '424'

[inemart]

asi es ya esta abierto mi recorset
ya cheque tambien la sentencia en sql que tiene mi recorset es esto checa:
Private Sub CmdDetallesTik_Click()
'abre la conexion
Ocnn.CursorLocation = adUseClient
'carga el recorset con todos los datos
Dim Carga As String
Carga = "Select *" & _
"From vtasclipper.dbo.vtaesp AS VE "

rs.Open Carga, Ocnn, adOpenDynamic, adLockOptimistic
'llena flex
Call CargarFlex(Flex)
End Sub

esta bien?