Visual Basic - Enlazar tabla a datagrid

Hola como estan? espero me puedan ayudar auqnue es algo simple no he podido lograrlo
el tema es que quiero poner los datos de mi tabla clientes en un datagrid y lo intento hacer de esta manera
pero me da el error "No se encontro el elemento en la coleccion que corresponde con el nombre o ordinal del pedido"

no entiendo bien lo del array ya que me lo pasaron pero me podrian ayudar?
que esta mal?
grcias

Dim strsql As String
strsql = "select * from clientes"
Set rs = New adodb.Recordset
rs.ActiveConnection = db
rs.Open (strsql), db, adOpenDynamic, adLockOptimistic
var.Control = rs!codpostal

'Set rs = New adodb.Recordset
' Define tres campos de tipo string
With rs.Fields
.Append "Codigo", adBSTR, 5
.Append "Nombre", adBSTR, 5
.Append "Domicilio", adBSTR, 10
.Append "Localidad", adBSTR, 25
End With




' Abre el recordset desconectado
'rs.Open
' Agrega cinco registros
While rs.BOF = False

rs.AddNew _
Array("Codigo", "Nombre", "Domicilio", "Localidad"), _
Array(rs!codcli, rs!nombre, rs!direccion, rs!codpostal)
rs.MoveNext
Wend

Set DataGrid1.DataSource = rs
' establece un ancho a las columnas
With DataGrid1

.Columns(0).Width = 500
.Columns(1).Width = 500
.Columns(2).Width = 3500
.Columns(3).Width = 2500
End With
' se mueve al primer registro
rs.MoveFirst

oye y porque no pruevas con un data embiborement y un command asi lo pones en el datagrit y con un codigillo de sql cambias los nombres y ya no se digo yamame si no entiendes o si soy yo el que no entiendo . atte el señor de la noche

No entiendo muy bien, si lo único que quieres es mostrar los datos de la tabla Clientes en un DataGrid no necesitas crear ningún recordset desconectado.

Mira una forma de hacer esto.

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
App.Path & "\MiDB.mdb"
.CursorType = adOpenStatic
.CursorLocation = adUseClient
.Open "Select * from Clientes"
End With
Set DataGrid1.DataSource = rs

Sin mas, en el DataGrid mostrará todos los datos de la tabla Clientes.