Bu Kod çalıştığına Connection Open() noktasında
hata veriyor.Sanırım Database kapalı hatası.Database nasıl
connect yapılır.

[code]
Connection.Open()
Command1 = New OleDbCommand(sqlcmdtext1, Connection)
DataAdapter1 = New OleDbDataAdapter(Command1)
DataTable1 = New DataTable
'DataAdapter1.Fill(DataTable1)
Try
If Connection.State <> ConnectionState.Open Then Connection.Open()
DataAdapter1.Fill(DataTable1)
If Connection.S

Arkadaşlar elimizdeki kodu analiz etmeme yardımcı olur musunuz kod şudur

Private Sub connectExcelSheet()
    Dim Sql As String
    Dim BasTarih As Long, BitTarih As Long
    Dim VTSonSatir As Long
    Dim ADO_RS As ADODB.Recordset
    Dim ADO_CN As ADODB.Connection
    Dim ToplamTutar As Double
    '
    ToplamTutar = 0
   
    VTSonSatir = Sheets("DetayVeri").Cells(1048576, 8).End(xlUp).Row
   
    BasTarih = Cells(1, Selection.Column)
    BitTarih = Cells(2, Selection.Column)