Giorno a tutti
qualcuno mi puo correggere questo pezzo di codice?
allora ho una tabella gruppi


codice descrizione
1 hardware
2 software
3 arredo
4 impianti

vorrei che quando metto il codice in una text mi compaia automaticamente la descrizione nella text2
metto il codice che ho fatto io

Dim con2 As New SqlConnection
Dim comand2 As New SqlCommand
Dim data2 As New DataSet
Dim adapter2 As New SqlDataAdapter
con2 = New SqlConnection(System.Configuration.ConfigurationSe ttings.AppSettings.Get("ConnectionString"))
comand2 = New SqlCommand
con2.Open()
comand2.Connection = con2
adapter2 = New SqlDataAdapter("SELECT desc_grup FROM gruppi WHERE cod_grup = ('" + TextBox1.Text + "')", con2)
Try
data2.Clear()
adapter.Fill(data2, "gruppi")
TextBox2.DataBindings.Add("text", data2, "gruppi.desc_grup")
TextBox1.DataBindings.Add("text", data2, "gruppi.cod_grup")





Catch ex As Exception

End Try


qualcuno mi sa dire cosa sbaglio e come posso fare?
grazie