SQL Server - Por favor Ayudenmeeeeeeeeee

Hola soy nueva en esto de la programada en visual basic y lo unico que necesito es llenar un grid con los elementos de un campo de la base de datos cuando en un combobox elige una opcion u otra depende de eso ese sera el grid que se genere lo que pasa que no logro hacer la conexion y tambien me cuesta hallarle a como debo rellenar mi grid...
Gracias de antemano

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset

Private Sub DataCombo1_Click(Area As Integer)

Set rs1 = New ADODB.Recordset
If Me.DataCombo1.BoundText = "" Then Exit Sub
SQL = "select * from clientes where telefono = '" & DataCombo1.BoundText & "'"
rs1.Open SQL, cn, adOpenStatic
Set Me.DataGrid1.DataSource = rs1
End Sub

Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;User ID=sa;Data Source=(nomserver);DATABASE=nom Base dato"
Set rs = New ADODB.Recordset
rs.Open "select telefono from clientes", cn, adOpenStatic
Set Me.DataCombo1.RowSource = rs
Me.DataCombo1.ListField = "telefono"
Me.DataCombo1.BoundColumn = "telefono"
End Sub

en el select selecionas lo que quieres que te aparesca en el combo y el campo es lo q copias en el Listfield ok

espero que te sirva el ejemplo
un beso KArla Cuidate