Com a dica que o QUINTELAB deu-me, fui investigar e consegui resolver o caso, abaixo posto a soluxao:
CODE
'ao seleccionar uma combobox aparecesse em duas textbox valores da base de dados (PARA TABELA PRODUTOS)
Dim con As New SqlConnection()
Try
con.ConnectionString = Dados.StringDeConexao
con.Open()
Dim strsql As String
strsql = "Select * from PRODUTOS where produto ='" & ComboBox4.Text & "'"
Dim cmd As New SqlCommand(strsql, con)
Dim dr As SqlClient.SqlDataReader
dr = cmd.ExecuteReader
While dr.Read()
TextBox7.Text = dr.Item("referencia")
TextBox8.Text = dr.Item("quantidade")
TextBox9.Text = dr.Item("preço")
End While
con.Close()
Catch ex As SqlException
MsgBox(ex.Message)
End Try
Mas antes deves popular a sua combobox, no meu caso no evento load tenho esse codigo:
CODE
'PREENCHE A COMBObox COM O NOME DO PRODUTO
Dim strSql3 As String
strSql3 = "select produto from PRODUTOS"
ComboFill(ComboBox4, strSql3)
'METODO USADO PARA PREENCHER A COMBObox
CODE
Public Sub ComboFill(ByVal cbo As ComboBox, ByVal strsql As String)
Dim dt As New DataTable
'conexao
Dim con As New SqlConnection()
Try
con.ConnectionString = Dados.StringDeConexao
con.Open()
Dim cmd As New SqlCommand(strsql, con)
Dim da As New SqlDataAdapter(cmd)
da.Fill(dt)
With cbo
.DataSource = Nothing 'para limpar se for recarregada
.DataSource = dt
.ValueMember = dt.Columns(0).ToString
'.DisplayMember = dt.Columns(1).ToString
End With
con.Close()
Catch ex As SqlException
MsgBox(ex.Message)
End Try
End Sub
Espero poder ajudar os outros.
Obrigado