Public Sub ComboBox2_Change()
'ComboBox2.Refresh
sql = "SELECT*FROM DESCRIZIONE WHERE descrizione LIKE '" & ComboBox2.Text & "'"
hres = $hConn.Exec(sql)
If hres.Available = True Then
TextBox1.text = hres!tipo
If hres!bnbn = "B" Then
Radioa.Value = True
Else
Radiob.Value = True
Endif
Endif
End
if hres!bnbn = "B" Then