errore 3219

[VioletFairy]

Ciao,
sono nuova nel mondo di visual basic. Sto usando Visual Basic 6.0
Il mio programma deve lavorare con un DataBase. Io uso Access 2000. Ora se faccio delle SELECT tramite VB sul mio database non trovo alcun problema, quando invece faccio delle INSERT INTO in compilazione mi da "error '3219' Operazione non valida"
In un altro programma utilizzavo Access 97, e mi faceva fare tranquillamente sia delle INSERT INTO che delle SELECT. Ma io ora posso lavorare solo con Access 2000.
il codice è questo

Private Sub cmdOk_Click()
Dim Livello As Integer, Data, Ora As Date
    SqlStringa = "SELECT * FROM Utenti WHERE LOGIN = '" & txtUsername.Text & "' AND PSW = '" & txtPsw.Text & "'"
    Set rs = db.OpenRecordset(SqlStringa)
    If Not rs.EOF Then
        Ora = Time
        Data = Date
        Livello = rs.Fields(5)
        
        SqlStringa = "INSERT INTO Log (DATA, ORA, ID_UTENTE, NOME_UTENTE, COGNOME_UTENTE, OPERAZIONE) VALUES ( '" & Data & "', '" & Ora & "', " & rs.Fields(0) & ", '" & rs.Fields(1) & "', '" & rs.Fields(2) & "', 'login' )"
        Set rs1 = db.OpenRecordset(SqlStringa) 'QUI MI DA L'ERRORE!!!

        frmMenu.Show
    Else
        MsgBox "La password non e' esatta."
        txtUsername.Text = ""
        txtPsw.Text = ""
    End If
End Sub

Sapete dirmi in cosa sbaglio? Che cosa devo fare?

[oregon]

Prova con

db.Execute(SqlStringa)

[VioletFairy]

grandeeeeeeeeeeee! Sei un grande!! Sembra tutto ok!! La nuova riga l'ha aggiunta!
E' tutto il pom che cerco una soluzione nel web!! Grazie infinite!!!