consulta sobre un combobox

[ccristian79]

buenas tardas amigos, estoy teniendo un problema que no logro resolver, a pesar que he leido varias cosas propuestas aqui en el foro, no logro entender bien como hacerlo, espero que alguien me pueda ayudar.. recien me estoy iniciando en este tema de la programacion, y bueno estoy practicando muchas cosas, la consulta es la siguiente, yo tengo un combobox enlazado a una base de datos en este caso, es la tabla clientes, donde me trae el nombre de cada uno de los clientes que fueron cargados previamente y guardados en la dbd ( sql)
bien, lo que no puedo hacer es que al elegir un nombre, automaticamente me traiga el resto de los campos que tngo en el formulario, o sea yo ene l formulario tengo 1 combobox y muchos textbox , al elegir un cliente del combobox quiero q me traiga las otras columnas de esa tabla.. me explico ???
estoy trabajando con visual estudio 2008 y la base de datos que uso es sql
les coloco el q use para cargar el combobox

Private Sub consultaclientes_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim cn As New OleDbConnection( _
"provider=SQLOLEDB.1;" & _
"Integrated Security=SSPI; " & _
"Persist Security Info=False;" & _
"User ID=xxxxxxx;" & _
"Password=xxxxxxxx;" & _
"Initial Catalog=OperadoresMT;" & _
"Data Source=cristian1\SQLEXPRESS")
cn.Open()

cargar_Combo(CMBnombre, "Select Nombre From Clientes")
CMBnombre.SelectedIndex = -1
Private Sub cargar_Combo( _
ByVal ComboBox As ComboBox, _
ByVal sql As String)

' nueva conexión indicando al SqlConnection la cadena de conexión
'Dim cn As New OleDbConnection(cn)

Try

' Abrir la conexión a Sql
cn.Open()

' Pasar la consulta sql y la conexión al Sql Command
Dim cmd As New OleDbCommand(sql, cn)

' Inicializar un nuevo SqlDataAdapter
Dim dda As New OleDbDataAdapter(cmd)

'Crear y Llenar un Dataset
Dim dds As New DataSet
dda.Fill(dds)

' asignar el DataSource al combobox
ComboBox.DataSource = dds.Tables(0)
'TXTcuit.Text = dda.Fill(dds)



' Asignar el campo a la propiedad DisplayMember del combo
ComboBox.DisplayMember = dds.Tables(0).Columns(0).Caption.ToString


Catch ex As Exception
MessageBox.Show(ex.Message.ToString, _
"error", MessageBoxButtons.OK, _
MessageBoxIcon.Error)
Finally
If cn.State = ConnectionState.Open Then
cn.Close()
End If
End Try

End Sub

los text q quiero rellenar son ..
txtdireccion, txttelefono, txtcuit, txtcontacto, txtobservaciones

bueno espero que me puedan ayudar !! muchas gracias !!!!