Cita:
Iniciado por dieama 
No entiendo coño hacerlo todavia. Te dejo el procedimiento que tengo para que me lo modifiques.
Private Sub cmdGenerar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGenerar.Click
Dim cnn As New OleDbConnection
Dim dt As New DataTable
Dim da As New OleDbDataAdapter
Dim cmd As New OleDbCommand
'abro la conexion
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\base.mdb"
cnn.Open()
'creo el comando y lleno la tabla
cmd.Connection = cnn
cmd.CommandText = "Compras"
cmd.CommandType = CommandType.TableDirect
da.SelectCommand = cmd
da.Fill(dt)
cnn.Close()
dgvListado.DataSource = dt
End Sub
Bueno, es que más facil no sé como ponerlo. Después de abrir la conexión, coloca el código que te puse en la primera respuesta con la adaptación a OleDb que pongo en la segunda respuesta.
Modifica las variables para ajustarlas a tu necesidad. p.e.
LaTabla = Compras
cn = cnn
DataGridView1 = dvgListado
y elimina las declaraciones de variables al principio (excepto cnn)
