Asignación de datos al Datagrid

[juanutcm]

Hola foreros mi pregunta es como puedo asignarle los datos al datagrid sin tener que hacerlo de manera automatica.... bueno con el codigo me explico mejor:


Sub doConexion()
Dim rstUsuarios As ADODB.Recordset
Dim strCnn As String
' Abre la tabla usuarios
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Archivos de programa\SoftwareSCC\Datos\bdSCC.mdb;Persist Security Info=FalseProvider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Archivos de programa\SoftwareSCC\Datos\bdSCC.mdb;Persist Security Info=False"
Set rstUsuarios = New ADODB.Recordset
rstUsuarios.CursorLocation = adUseClient
rstUsuarios.CursorType = adOpenDynamic
rstUsuarios.LockType = adLockBatchOptimistic
rstUsuarios.Open "SELECT Nombre,ApellidoPaterno,ApellidoMaterno,Calle,Numer o,Telefono,NombreUsuario FROM Usuario " & _
"", strCnn, , , adCmdText
With DataGrid1
.Columns(0).DataField = rstUsuarios.Fields.Item(Nombre)
End With
End Sub

Intente hacerlo asi pero no me funciona alguna ayudita me serviria.....