سلام دوست عزیز من کد شما رو اینجوری اصلاح کردم
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 رخ بده که یک کم حال گیریه