안녕하세요. 끝까지 봐주세요. 그리고 해결부탁합니다.

Visual Basic 6과 FireBird 2.1 그리고 LCPI.IBProvider는 버젼 3 으로 프로그램을 만들고 있습니다.

dbConnect  '모듈이름  --구사시작

  Public adoConn        As ADODB.Connection
  Public AdoRs          As ADODB.Recordset
  Public adoCommand     As ADODB.Command
'' Public adoConnString  As String
  Public strQuery       As String

Public Function adoConnectDB()
   Set adoConn = New ADODB.Connection
   adoConn.ConnectionString = "provider=LCPI.IBProvider;data source=localhost:C:\TEST\PAYDB.FDB;" & _
                         "ctype=KSC_5601;User Id=SYSDBA;password=mmskey;auto_commit=true"
   adoConn.Open
   adoConnectDB = True
End Function

Public Function adoStartQuerySQL(ByVal adoQueryString) As Long
   Set adoCommand = New ADODB.Command
   Set AdoRs = New ADODB.Recordset
   adoCommand.ActiveConnection = adoConn
   adoCommand.CommandText = adoQueryString
   Set AdoRs = adoCommand.Execute
End Function
'모듈  --구사끝

적용하는 프로그램을 구사함
Dim SW   As String
.
.
.
Call adoConnectDB
strQuery = "SELECT P_CODE,P_AMOUNT FROM PAYROLL WHERE P_CODE >= '0001' And P_CODE <= '0010'"
Call adoStartQuerySQL(strQuery)
If AdoRs.RecordCount = 0 Then
  SW = "NO"
Else
   .
   .
   .
End If
위와 같이 했는데요. 해결안되는 문제가  
1.   AdoRs.RecordCount가 레코드가 10개 있으면 10으로 나와야 하는데 레코드가 있으면 -1 이고 없으면 에러입니다.
   
2. 그리고 AdoRs.MoveNext 와 AdoRs.MoveFirst 는 되는데  AdoRs.MoveLast, AdoRs.MovePrevious는 에러나옵니다.

LCPI.IBProvider는 버젼 3으로 정품입니다. 뭘 구사를 잘 못한 것 같거든요. 참고로 저는 프로그램교육을 정식으로
받은 사람이 아닙니다. 원리를 정확히 모르고 남의 것 빌려서 그래로 하는 것들이 많습니다.

해결해 주세요.  잘 부탁합니다.