Använder följade kodsnutt för att hämta lite data från en Access-databas
<code>
Public Sub InitADO()
Set Connect = New Connection
Set Recset = New Recordset

file = App.Path & "\db\db1.mdb"
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & file

sql = "SELECT * FROM Tabell1 order by namn DESC"
Recset.Open sql, Connect, adOpenStatic, adLockOptimistic
Do Until Recset.EOF
List1.AddItem (Recset("namn") & " " & Recset("tel"))
Recset.MoveNext
Loop
Recset.Close
Set Recset = Nothing
Set Connect = Nothing
End Sub
</code>

Nu vill jag även kunna stoppa in lite data i databasen också och det är då som problemen kommer.
Har försökt med följande
<code>
Public Sub toAccess()
Set Connect = New Connection
Set Recset = New Recordset
file = App.Path & "\db\db1.mdb"
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & file

sql = "insert into Tabell1 (namn, adress, postnr, tel) " & "values('" & Text1 & "'," & Text2 & ",'" & Text3 & "','" & Text4 & "')"

PROBLEM

End Sub
</code>
Jag tror att det är rätt ända ned till sql = "... men sedan så vet jag inte hur det skall se ut.