求助：VB中使用sqlite3.dll操作Sqlite数据库如何实现类似MoveFirst,MovePrevious功能？

[xbfree]

我的问题是如何实现其它数据库中类似rs.MoveFirst, rs.MovePrevios, rs.MoveNext, Rs.MoveLast功能，折腾了几天也没找到方法，谢谢！
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long

Private Sub Form_Load()
lb = LoadLibrary("D:\tools\OA\SQLite\sqlite3VB.dll")
Set oDB = CreateObject("LiteX.LiteConnection")
TextSQLiteVersion.Text = oDB.Version
oDB.open ("D:\tools\OA\SQLite\DataBase\test1.db3")
End Sub

Private Sub CmdDisplay_Click()
Set rs = oDB.Prepare("select * from TableTest")
For i = 0 To rs.rowcount
Text1.Text = Text1.Text & i & " | ..." & rs.ColumnValue(0) & "-----" & rs.ColumnValue(1) & "-----" & rs.ColumnValue(2) & vbCrLf
rs.Step
Next i

End Sub

[greatbody]

sqlite操作数据库推荐使用vbRichClient 它可以让你方便的Next,Previous

[xbfree]

谢谢，我试了，可是vbRichClient注册错误，重新注册也不行，我再折腾折腾

[赵4老师]

引用 2 楼 xbfree 的回复:

谢谢，我试了，可是vbRichClient注册错误，重新注册也不行，我再折腾折腾

在64位Windows下： 64位exe和dll在目录c:\windows\system32目录下； 32位exe和dll在目录c:\windows\syswow64目录下； 所以要注意： 在win64位系统下注册32位ocx或dll需要将32位ocx或dll拷贝到c:\windows\syswow64\目录下。 且注册要用c:\windows\syswow64\regsvr32 xxxxxxx.ocx或dll

[xbfree]

谢谢，效果实现了，非常感谢！！