Vdr. databaseprogrammering

Hvorfor vil den ikke indsætte noget i databasen?

Private Sub cmdOpret_Click()
   
   
    \' running stored queries
   
    On Error GoTo LocalErr
   
    Dim ws As Workspace
    Dim db As Database
    Dim qd As QueryDef
    Dim rs As Recordset
    Dim pr As Property

    Dim strDBName As String
    Dim strQDName As String
    Dim strQDSQLInsert As String
    Dim strQDSQLSelect As String
    Dim strMsg As String
   
    \' init vars
    strDBName = App.Path & \"\\DB.mdb\"
    strQDName = \"qryNewQuery\"
    strQDSQLInsert = \"INSERT INTO personale VALUES(`Jesper\')\"
    strQDSQLSelect = \"SELECT * FROM personale\"
   
    \' open ws & db
    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase(strDBName)
   
    \' create temp query and execute
    Set qd = db.CreateQueryDef(\"\")
    qd.SQL = strQDSQLInsert
    qd.Execute
   
    \' view query properties
    strMsg = \"\"
    For Each pr In qd.Properties
        strMsg = strMsg & pr.Name
        strMsg = strMsg & \" = \"
        strMsg = strMsg & pr.Value
        strMsg = strMsg & \" {\"
        strMsg = strMsg & \"}\" & vbCrLf
    Next
    MsgBox strMsg, vbInformation, \"TempQueryDef\"
   
    \' create stored query and get results
    Set qd = db.CreateQueryDef(strQDName)
    qd.SQL = strQDSQLSelect
    Set rs = qd.OpenRecordset(dbOpenDynaset)
   
    \' view query properties
    strMsg = \"\"
    For Each pr In qd.Properties
        strMsg = strMsg & pr.Name
        strMsg = strMsg & \" = \"
        strMsg = strMsg & pr.Value
        strMsg = strMsg & \" {\"
        strMsg = strMsg & \"}\" & vbCrLf
    Next
    MsgBox strMsg, vbInformation, \"SavedQueryDef\"
   
    rs.Close
    db.Close
    ws.Close
    Set pr = Nothing
    Set rs = Nothing
    Set qd = Nothing
    Set db = Nothing
    Set ws = Nothing
   
    Exit Sub
   
LocalErr:
    strMsg = strMsg & \"<err>\"
    Resume Next
   
End Sub



Jeg er oxo nysgerig efter hvis du har et script som indsætter noget i en database...