Hjælp til min INSERT INTO sql sætning

Jeg er igang med at lave et lille program til mine forældre som skal hjælpe dem.. :)

MEN når jeg udfører denne SQL sætning så for jeg af vide der er syntaks fejl i den..
Og har tjekket inde på w3schools og den ligner jo, efter hvad jeg kan se, fuldstændig den der inde..!!

***Globale variabler***
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
Dim myString As String
Dim sql As String
******

***udføres når jeg trykker på min knap***
myString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & app.path & "\db.mdb"

con.Open (myString)

sql = "INSERT INTO short(list) VALUES('" & Text2.Text & "')"

rs.Open sql, con, adOpenDynamic

rs.Close
con.Close
Set rs = Nothing
Set con = Nothing
******

Og jeg for bare af vide at der er en syntaks fejl..

Håber i kan hjælpe mig :)