Birde excele almak istedim sqlite veritabanından bağlnantı hatası var galiba nasıl çözülecek.Anlıyorsunuz diye konu açmadan size danışayım dedim.

Private Sub CommandButton1_Click()



    Dim conn As Object, rst As Object

    

    Set conn = CreateObject("ADODB.Connection")

    Set rst = CreateObject("ADODB.Recordset")

    

    conn.Open "DRIVER=SQLite3 ODBC Driver;Database=" & ThisWorkbook.Path & "\ee.db;"

    

    strSQL = "SELECT * from tbltest;"

    

    rst.Open strSQL, conn, 1, 1

    Sheets("Sayfa1").Cells.Clear

    Sheets("Sayfa1").Range("A1").CopyFromRecordset rst

    rst.Close

    conn.Close

    Set rst = Nothing: Set conn = Nothing



End Sub