Ahh, perdon el codigo anterior es para llenarlo en tiempo de ejecucion. Aqui esta un ejemplo de como llenarlo en base a un select.
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rstemp As New ADODB.Recordset
Private Sub Form_Load()
rstemp.Fields.Append "ID", adSingle
rstemp.Fields.Append "ID2", adSingle
rstemp.Fields.Append "nombre", adChar, 60
rstemp.Fields.Append "comision", adSingle
rstemp.Open
Set DataGrid1.DataSource = rstemp
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\vehiculos.mdb" & ";Persist Security Info=False;Jet OLEDB:Database Password=hola"
Set rs = cn.Execute("select * from vendedor")
Do Until rs.EOF
rstemp.AddNew
rstemp(0) = rs(0)
rstemp(1) = rs(1)
rstemp(2) = rs(2)
rstemp(3) = rs(3)
rs.MoveNext
Loop
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set rstemp = Nothing
Set rs = Nothing
cn.Close
End Sub
Saludos
