Benimde çorbada katkım olsun.
berduş hocanın alltaki kodun altına

baglan.Open "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\Döviz.accdb"

Alttaki kodu eklerseniz

Set rs = CreateObject("adodb.recordset")

rs.Open "delete * from Döviz", baglan, 1, 3

rs.Close

alttaki kodun altınada

Set xmldoc = Nothing

Alttaki kodu eklerseniz önce tablo silinir sonra listviewe veri gelir.

SqlEkle = "select * from [Döviz] WHERE not isnull([VeriTrh])"

 rs.Open SqlEkle, baglan, 1, 3

Set rs = con.Execute(SqlEkle)

With ListView1

        .ListItems.Clear

        .ColumnHeaders.Clear

        For i = 0 To rs.Fields.Count - 1

            .ColumnHeaders.Add , , rs.Fields(i).Name

        Next i

        Do While Not rs.EOF

            ListView1.ListItems.Add , , rs(0).Value

            For a = 1 To rs.Fields.Count - 1

                ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , IIf(IsNull(rs(a).Value) = True, " ", rs(a).Value)

            Next a

            rs.movenext

        Loop

End With

Set rs = Nothing

Set baglan = Nothing

rs.Close

baglan.Close