Visual Basic - EL VALOR DEL BOF O EOF ES TRUE,....

TENGO EL SIGUIENTE PROBLEMA, ESTOY HACIENDO UN PROGRAMITA PARA PRECIOS DE ACUERDO PESO. ESTOY USANDO MSDE PARA LA BD Y VB6 (SO WINDOWS XP). YA CONECTE LA BD PERO CUANDO LO EJECUTO ME DA EL SIGUIENTE ERROR: "El valor del BOF o EOF es TRUE, o el actual registro se eliminó; la operacion solicitada requiere un registro actual". ESTE ES LA PARTE DEL CODIGO DONDE DEBERIA SACAR LA TARIFA.
SI QUIEREN LES PUEDO ENVIAR TODO EL CODIGO PARA QUE ME AYUDEN. DESDE YA GRACIAS.

Private Sub COTIZA()
If ok = False Then
Else
If COT.State = adStateOpen Then
COT.Close
Else
pn = True
COT.Open "select top 1 * from tarifas where COD_SERV =" & CSERVICIO & " and_
cod_tenv=" & Text(8) & " and cod_catg=" & WW & " and cod_region = " & Text(9) & " and_ peso_max >= " & Text(2) & " order by tarifa", DB, adOpenKeyset, adLockOptimistic
MONTO = COT!tarifa
Text(3) = MONTO
COT.Close
End If
End If
End Sub

primero usa la ppropiedad recordcount para saber si la consulta que haces capturo algun dato xq alomejor vos pensas que el recordset tiene registros y no tiene nada .
si podes utilizar los frenos de vb6 q se utilizan para ver como funciona el programa y frenalo despues de la con sulta para ver si CSERVICIO y los demas ojetos tienen datos