uygulamayı çalıştıramadığım için deneyemedim, kodu aşağıdaki ile değiştir.

Private Sub BtnKurAl_Click()

If ResmiTatil(Me.TxtTarih) = False Then

   MsgBox "Resmi Tatil Günü Seçtiniz." & vbCrLf & _

          "Lütfen tarihi değiştirerek tekrar deneyiniz.", vbInformation, "UYARI !"



   Exit Sub



End If



Me.LstKurlar.RowSource = ""



Me.LstKurlar.AddItem ("DövizCinsi" & ";" & "Orijinal İsim" & ";" & "Alış" & ";" & "Satış")



Dim xmlDoc As MSXML2.DOMDocument50



   Dim DovizListesi As MSXML2.IXMLDOMNodeList



   Dim Dovizler As MSXML2.IXMLDOMNode





   Set xmlDoc = New MSXML2.DOMDocument50



   xmlDoc.async = False



 If Me.TxtTarih < Date Then

      xmlDoc.Load "http://www.tcmb.gov.tr/kurlar/" _

                & Format(Me.TxtTarih, "yyyymm") & "/" _

                & Format(Me.TxtTarih, "ddmmyyyy") & ".xml"

          Else

        

      xmlDoc.Load "http://www.tcmb.gov.tr/kurlar/today.xml"

      

 End If



   Set DovizListesi = xmlDoc.documentElement.selectNodes("Currency")



  On Error GoTo hata

   Dim DovizCinsi, OrjIsim, Alis, Satis As String

   

   '



   For Each Dovizler In DovizListesi

   

      DovizCinsi = Dovizler.selectSingleNode("Isim").Text

      OrjIsim = Dovizler.selectSingleNode("CurrencyName").Text

      Alis = Dovizler.selectSingleNode("ForexBuying").Text

      Satis = Dovizler.selectSingleNode("ForexSelling").Text

      

        Me.LstKurlar.AddItem (DovizCinsi & ";" & OrjIsim & ";" & Alis & ";" & Satis)

        

Dim rs As New ADODB.Recordset

rs.Open "Table1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rs.AddNew

rs("Tarih") = Me.TxtTarih

rs("Doviz_Cinsi") = DovizCinsi

rs("Orijinal_Isim") = OrjIsim

rs("Alis") = Alis

rs("Satis") = Satis

rs.Update

Set rs = Nothing

Set Conn = Nothing

        

        

  Next



  Set xmlDoc = Nothing

  

  

  

hata: Exit Sub



End Sub