textboxa sayfadan veri getirme

[canercan02]

merhaba arkadaşlar.
elimde bir arkadaşın yapmış olduğu bir form var ekleme yapmak istiyorum fakat bir türlü beceremedim.
kodlar şöyle

Sub SetupTextBox(SetIt As Boolean)
Dim ctl As Control

Select Case SetIt

Case True
For Each ctl In Me.Controls

If TypeName(ctl) = "TextBox" Then
ctl.ControlSource = Replace(ctl.Name, "TextBox", "=veri!c")

End If
Next
Case False
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Then
ctl.ControlSource = ""
End If
Next
End Select
End Sub


sayfada açıklama mevcuttur.