aşağıdaki kodu dener misiniz?

Sub CommandButton1_Click()

' Vba Tools sekmesindeki "Referanslar bölümüne tıklayın"

' "Microsoft Office xx.0 Access database engine Object Library" alanını seçmeniz gereklidir.





Dim DataBaglan As DAO.Database

Dim DataKayitlari As DAO.Recordset

'

Set DataBaglan = OpenDatabase(ThisWorkbook.Path & "\ANA SAYFA.accdb", False, False, "MS Access;PWD=" & 1234) '<-- düzenlenen kısım

'Set DataBaglan = OpenDatabase("C:\Users\mert\Desktop\veri\ANA SAYFA.accdb")

'EgitimListesi tablosu içerisinde veri çağırmak için

Dim adresANASAYFA As String

adresANASAYFA = "SELECT * FROM [ANA SAYFA] "

Set DataKayitlari = DataBaglan.OpenRecordset(adresANASAYFA, dbOpenSnapshot)





If DataKayitlari.NoMatch = True Then 'Nomatch özelliktir. Bu özellik kayıt bulduysa False gönderir. kayıt bulamadıysa True gönderir.

    MsgBox "Eğitim ID numarasını kontrol ediniz, Eğitim bulunamadı! ", vbCritical, "Hata"



Else

    Range("A2").CopyFromRecordset DataKayitlari

    sonstr = Cells(Rows.Count, "C").End(xlUp).Row

    

    DataKayitlari.Close

    Set DataKayitlari = Nothing

    DataBaglan.Close

    Set DataBaglan = Nothing

    

    For x = 2 To sonstr

        If InStr(1, Range("c" & x), "<font color=red>") > 0 Then Range("c" & x).Font.Color = vbRed

        Range("c" & x) = PlainText(Range("c" & x))

    Next x

End If



End Sub