Sub connSQLite()

Set Conn = CreateObject("ADODB.Connection") '建立数据库连接对象

Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AppPath & "\testdata\MyDB1_Mdb" '打开数据库

sqlstr = "select * from TableA" '要执行的SQL语句

rs = CreateObject("ADODB.Recordset") '建立一个rs对象

'使用Executre方法来执行Sql语句，如果有返回结果的，那么请将其存储到rs中。

Set rs=Conn .Execute(sqlStr)

If Not (rs .EOF and rs .BOF) Then ''// 查看是否有任何内容可供处理 ////① 判断当前记录集是否为空： EOF - End Of File; BOF - Beginning Of File,即文件开始处                                  ''///// 这里我们通常用“Not(Rstest2..Eof And  Rstest2..bof)”来判断记录集是否不为空 (True--此时有数据 False--此时没有数据).                                          

              MsgBox rs!ID ''/// 由于已经得到前面成功的信号，就显然不必在考虑recordset对象了 ，直奔能看出想要得到的ID字段

        Else

                  MsgBox ("Current Record is Null ! No Data.")

          End If

Conn .Close ''// 关闭连接End Sub