[解决办法] 简单示例: Dim ff As New ADODB.Connection Dim ff1 As New ADODB.Recordset Dim dd As String dd = "Driver={SQLite3 ODBC Driver};Database=J:\ZZ1\SqliteDev\dd" ff.Open dd ff1.Open "select * from dd1", ff Sheets("sheet1").Range("a1:a1").CopyFromRecordset ff1
[解决办法] strSQL内容,是否有满足条件的记录 do while not rs.eof msgbox rs(0) rs.movenext loop [解决办法] ff1.Open "select * from dd1", ff, adOpenKeyset, adLockBatchOptimistic