Sqlite için alttaki kod çalışıyor örnek olarak.

Private Sub CommandButton1_Click()



    Dim con As Object, rs As Object

    

    Set con = CreateObject("ADODB.Connection")

    Set rs = CreateObject("ADODB.Recordset")

    

    con.Open "DRIVER=SQLite3 ODBC Driver;Database=" & ThisWorkbook.Path & "\prod.db;"

    

    strSQL = "SELECT  _id,fasil,konu from hadisler "

    

    rs.Open strSQL, con, 1, 1

    

    With Sheets("Sayfa1")

        .Cells.ClearContents

        .Range("A1").CopyFromRecordset rs

    End With

    rs.Close

    con.Close

    Set rs = Nothing: Set con = Nothing

End Sub

---

SELECT * from hadisler

yukardaki gibi yapınca Excel donuyor.