Database ADODB opret.

Er pænt nybegynder til VB og har lidt svært ved at komme igang med VB og databaser :)

Jeg er igang med at lave en funktion der kan tilføje til en database, simpelt?? Åbenbart ikke for mig :)

jeg har nogle erklæringer og nogle subs så jeg kan spare noget tid senere hen, det kommer her:
-----------
Option Explicit
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim myString As String

Private Sub OpenCon()
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
myString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\Dokumenter\vb\Access filer\Albums.mdb;Persist Security Info=False"
con.Open (myString)
End Sub

Private Sub CloseCon()
rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
End Sub
--------------

Så har jeg selve min knap der skal tilføje fra et par tekst dokumenter:

--------------
Dim sql As String
sql = "INSERT INTO tbl_albums"
OpenCon
rs.Open sql, con, adOpenDynamic
kunstner.Text = rs("kunstner") & ""
CloseCon
------------

Det var sådan lige hvad jeg mente den skulle se ud, men er nok skadet efter arbejde med php og sql før :)

Anyway det virker ikke, får at vide der er en syntaxfejl i INSERT INTO sætningen og den debugger til følgende linie:
rs.Open sql, con, adOpenDynamic