首先你要测试下你的程序能不能连接到数据库；
成都创新互联公司专注于企业成都营销网站建设、网站重做改版、揭西网站定制设计、自适应品牌网站建设、HTML5建站、电子商务商城网站建设、集团公司官网建设、成都外贸网站制作、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为揭西等各大城市提供网站开发制作服务。
若数据库连接成功了，那么就是insert into 语句有问题；
在调试模式下，你插入的数据库内容通过查表是看不出来的；内容没有写入到表中；
oledb就不用eof和bof了，使用OleDbDataReader读的话就是一条一条读，从第一条开始
Dim rd As OleDbDataReader
If rd.Read = True Then
g_ServerInfo.sID = rd("Id")
End If
用read判断，没记录了就false了
用DataSet读就更省事了
Dim ds As DataSet
ds.Tables("tbInfo").Rows.Count是行数，直接for循环就完了
网页链接
需要下载 SQLITE OLEDB 的数据库驱动连接才行的。调用方法和其他OLEDB一样。