VB使用SQLite问题，出错“ActiveX 部件不能创建对象”，有点急。。
想要VB使用SQLite
网上下载 的一段代码。。运行到中间出错
请问这是啥问题？
或者有其他方法在vb中使用SQLite。。。也可以。。。。

Private Declare Function FreeLibrary Lib "kernel32" (ByVal hLibModule As Long) As Long
Private Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" (ByVal lpLibFileName As String) As Long
Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Any, ByVal wParam As Any, ByVal lParam As Any) As Long


Dim lb As Long
lb = LoadLibrary(App.Path & "\sqlite3.dll")

Dim oDB As Object
Set oDB = CreateObject("LiteX.LiteConnection") <————运行到这里，出错“ActiveX 部件不能创建对象”
TextSQLiteVersion.Text = oDB.Version
oDB.open (App.Path & "\test.db")

oDB.Execute ("insert into testtable values(2, 'laoma', 20)")

TextSQLiteChanges.Text = oDB.changes
TextSQLitePath.Text = oDB.Path


oDB.Close


[解决办法]
可参考这个帖子http://topic.csdn.net/t/20041022/17/3482411.html13楼。
[解决办法]
是不是除了这个dll还有其他需要引用的？你到对象浏览器里看看有没有litex这个库？是不是有个叫litex的组件你还没注册啊？