liste kutusundan seçilen değere göre metin kutularının değer almasını istiyorum bunu nasıl yapabilirim

Sub Yedekle()
Const BackUpFile As String = "D:\YEDEK\yedek.accdb"
Const tmpBackUpFile As String = "C:\tmpBackUp.accdb"
Dim yol As String
With CurrentDb
For i = 0 To .TableDefs.Count - 1
If Len(Trim(.TableDefs(i).Connect)) > 0 Then
Path = .TableDefs(i).Connect
yol = Mid(Trim(Path), 11)
End If
Next
End With
WinRARX$ = Environ$("ProgramFiles") & "\WinRAR\rar.exe"

'// Yedekleme proseduru..
Yedek_Proc yol, BackUpFile


End Sub


yukardaki kodd