Como cargar los datos de una base Access a un DataGridView por codigo.

Laura
10 de Noviembre del 2008
Hola a todos!
Soy novata en tecnologia net, yo abro una base de datos y una tabla, mediante un modulo con lo siguiente:

Imports ADODB
Module BaseDatos
Public Conexion As ADODB.Connection = New ADODB.Connection()
Public Amigos As ADODB.Recordset = New ADODB.Recordset()
Public Campos As ADODB.Fields
Dim Respuesta As Integer
Public Sub AbrirBase()
Conexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:TRABAJOPROGRAMACIONPROYECTOS_VB_2008CONEXION ACCESSDATOS.mdb"
Try
Conexion.Open()
Catch ex As Exception
End Try
Respuesta = Conexion.Errors.Count()
If Respuesta <> 0 Then
MsgBox("ERROR: No se logro la Conexión", MsgBoxStyle.Critical, "Error de Conexión")
Else
MsgBox("La Conexión Fue Satisfactoria", MsgBoxStyle.Information,"Conexión Establecida")
End If
End Sub

Public Sub AbrirAmigos()
Amigos = New ADODB.Recordset()
With Amigos
.ActiveConnection = Conexion
.CursorType = CursorTypeEnum.adOpenKeyset
.LockType = LockTypeEnum.adLockOptimistic
.Open("Select*from Tabla1")
End With
End Sub


Public Sub CerrarBase()
Try
Conexion.Close()
Catch ex As Exception
MsgBox("ERROR: No se logro el Cierre de Conexión a la Base de Datos, ya que la Base de Datos NO Esta Abierta o NO se Halló", MsgBoxStyle.Critical,"Error de Cierre de Conexión")
Exit Sub
End Try
Try
Respuesta = Conexion.Errors.Count()
Catch ex As Exception
End Try
If Respuesta = 0 Then
MsgBox("Conexión Fue Cerrada Satisfactoriamente",MsgBoxStyle.Information, "Conexión Cerrada")
End If
End Sub
End Module

==================================
Una vez he abierto la base de datos, y la tabla... como hago para que el DataGridView, muestre los datos?

Gracias