Dim per As IList
Public Sub New(ByVal id As String)
	InitializeComponent()
	person_id = id
	per = (From x In db.persons Where x.Key = person_id Select x.Value.surname).ToList
End Sub

Private Sub frm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.surname.DataBindings.Add(New Binding("Text", per, "surname"))
End Sub

Private Sub GetData(id)
    per = (From x In db.persons Where x.Key = id Select x.Value.surname).ToList
End Sub

Private Sub GetData(id)
    per = (From x In db.persons Where x.Key = id Select x.Value.surname).ToList
    surname.DataBindings.Clear()
    surname.DataBindings.Add(New Binding("Text", per, "surname"))
End Sub