Dim accessTr As Variant
accessTr = Null
accessTr = "SELECT TOP " & [Forms]![Form]![Metin5]
Me.RecordSource = accessTr & " Tablo1.[ÇALIŞMA ADI], Tablo1.[ÇALIŞILAN ALAN], Tablo1.[Kimlik] FROM Tablo1"
Me.ÇALIŞILAN_ALAN.Visible = True
Me.ÇALIŞMA_ADI.Visible = True
syn Mehmet bey vakit ayırdığınız için teşekkürler. Biraz araştırma yaptım ve aşağıdaki kod la çözüme ulaştım.