Visual Basic - datagrid

Hola estoy intentando llenar un datagrid con este codigo pero no hay manera alguien me puede decir algo de este codigo

With cnn
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\Base\General.mdb" & ";"
.Open
End With
rs.Open "SELECT Codigo,Nombre FROM Datacombo", cnn, adOpenDynamic, adLockOptimistic

With DataCombo1
Set .RowSource = rs
.BoundColumn = "Codigo"
.ListField = "Nombre"
.DataField = "Nombre"

Set .DataSource = rs
End With

gracias

Lo que veo en ese código,es que intentas asignar el recordset a un DataCombo, no veo el DataGrid por ningún lado. En la apertura del recordset "FROM Datacombo" ¿Datacombo es el nombre de una tabla?.
Saludos

perdon queria decir llenar un datacombo,y si datacombo es el nombre de una tabla nicolas