Accessin käyttö VB:stä

Tossa jotain mitä oon ite joutunu lisäileen Form_Loadiin:
Private Sub Form_Load()
Dim strConnection As String
'määritellään tietokantayhteden tarvittavat parametrit
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\data.mdb"

'tehdään uudet objektit
Set mcnnMain = New ADODB.Connection
Set mrstMain = New ADODB.Recordset
'asetetaan objekteilla alkuarvot
mcnnMain.CursorLocation = adUseClient
'avataan yhteys tietokantaan
mcnnMain.Open strConnection
mrstMain.CursorType = adOpenDynamic
mrstMain.LockType = adLockOptimistic
'haetaan rst:hen data tietokannasta
mrstMain.Open "SELECT * FROM henkilot", mcnnMain


Tarvii aikas paljon MySQL käskyjä noitten tietokantajuttujen kanssa.