Public Class frmPruebasBaseDatos
Dim WithEvents conexion As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|prueba.mdb;Persist Security Info=True")
Dim cmdOleDbCommand As New OleDb.OleDbCommand("SELECT * FROM PATIENTS")
Dim daPatients As New OleDb.OleDbDataAdapter(cmdOleDbCommand)
....
Private Sub frmPruebasBaseDatos_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cmdOleDbCommand.Connection = conexion
daPatients.Fill(Me.PruebaDataSet.PATIENTS)
End Sub