HELP

I'm using VB 6 with the database postgreSQL, my problem is when i used movelast or moveprevious .. error popup and say's "The row set does not support fetching backwards". I attach my sample code.

Option Explicit
Dim WithEvents dbInvAct As ADODB.Connection
Dim rsChart As ADODB.Recordset

Private Sub Form_Load()
Set dbInvAct = New ADODB.Connection
dbInvAct.ConnectionString = "provider=msdasql.1; " & "data source=PostgreSQL; initial catalog=accounting;"
dbInvAct.Properties("User Id").Value = "user"
dbInvAct.Properties("Password").Value = "password"
dbInvAct.Open

Set rsChart = dbInvAct.Execute("Select * from Chart")
End Sub

Function Next()
If rschart.EOF Or rschart.BOF Then
MsgBox "Database Empty!", vbCritical
Else
rschart.MoveNext
If rschart.EOF Then
MsgBox "End of File Encountered!", vbExclamation
rschart.MoveLast
End If
End If
End Sub