Tengo este código escrito y me tira .recordcount = -1, lei que tiene que ver con el cursorlocation pero la verdad le di muchas vueltas y no lo pude solucionar, alguna ayuda

Set RsId = New ADODB.Recordset
RsId.CursorLocation = adUseServer
RsId.Open "select * FROM CajaBanco WHERE CajaBanco.Id = " & _
FlexSub.Text, CNBase, adOpenKeyset, adLockOptimistic, adCmdText

Desde ya gracias!