بایند کردن به textbox

با سلام
من میخام یه شماره که از بانک نتیجه میشه به textbox بایند کنم.اماerror میده:
Child list for field aaza_sanaye_bazargani cannot be created.

کد من بصورت زیر است :

Dim str3 AsString = "Server=localhost;Initial Catalog=sanaye-bazargani;Integrated Security=True;Pooling=False"

Dim cn3 As SqlClient.SqlConnection = New SqlClient.SqlConnection(str3)

Dim query3 AsString = "select max(code) as [maxcode] from aaza_sanaye_bazargani where groupcode='" & ComboBox8.SelectedValue & "'"

Dim dp3 As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(query3, cn3)

Dim ds3 As DataSet = New DataSet()

dp3.Fill(ds3)

TextBox1.DataBindings.Add(New Binding("text", ds3, "aaza_sanaye_bazargani.maxcode"))

اشکال از کجاست؟

سلام دوست عزیز من کد شما رو اینجوری اصلاح کردم

 Sub bind()

        Dim str3 As String = "Server=.\sqlexpress;Initial Catalog=sanaye-bazargani;Integrated Security=True;Pooling=False"

        Dim cn3 As SqlClient.SqlConnection = New SqlClient.SqlConnection(str3)

        Dim query3 As String = "select max(ngroup)as [m] from groups where groupcode='" & ComboBox1.SelectedValue & "'"

        Dim Command As New SqlClient.SqlCommand(query3, cn3)

        Dim dp3 As New SqlClient.SqlDataAdapter

        dp3.SelectCommand = Command

        Dim ds3 As DataSet = New DataSet()

        dp3.Fill(ds3)

        Dim bs As New BindingSource

        bs.DataSource = ds3.Tables(0)

        TextBox1.DataBindings.Clear()

        TextBox1.DataBindings.Add("text", bs, "m", True, DataSourceUpdateMode.OnValidation)

    End Sub

از این کد در رویداد ComboBox1_SelectionChangeCommitted استفاده کنید
اگر توی دستورات اسکیول بجای بکارگیری کنترلهای ویندوزی پس از عبارت where از ارگومان استفاده کنید بهتره چون ممکنه injection sql رخ بده که یک کم حال گیریه

ممنون از توجه شما
خودم درستش کردم.