[lancomi]

Dim rs As New ADODB.Recordset
rs.Open "SELECT * FROM accounts WHERE username = '" & Text1 & "'", elie, adOpenStatic, adLockReadOnly
    If rs.RecordCount <> 0 Then
        If Text2 = rs!Password Then
            MsgBox "Login Succesful!", vbInformation, " "
            Text2.Text = ""
            With rsaccounts
            .Fields(0) = Text1.Text
            .Fields(1) = Text2.Text
            elie.Execute ("Insert Into Accounts(LastLogin) Values(#" & Date & "#)")
            .Update
            main.Show
            Unload Me
        Else
            MsgBox "Invalid Password, try again!", vbCritical, " "
            Text2.Text = ""
            Text2.SetFocus
        End If
    Else
        MsgBox "Invalid Login, try again!", vbCritical, " "
        Text1.Text = ""
        Text2.Text = ""
        Text1.SetFocus
    End If
    End If

I got runtime error '-2147467259 (80004005)': index or primary key cannot contain a null value

highlighted part:

elie.Execute ("Insert Into accounts(LastLogin) Values(#" & Date & "#)")

btw my primary key is username,
I'm trying to put the current date onto my lastlogin fields,
thanks for helping

[Ionut]

I think here

elie.Execute ("Insert Into Accounts(LastLogin) Values(#" & Date & "#)") 

you want an update statement.

elie.Execute ("update Accounts set LastLogin = #" & Date & "# where username = " & username) 

Although you should consider a parameterized query.

As the error said, a primary key cannot contain a null value. Your primary key is the username, if you try to insert a new record in your table, you have to specify the user as well.

[guyfromri]

If it's Access, why not take advantage of the built in DB functions in VB.

rs.AddNew
rs.Fields("LastLogin").Value=Now()
rs.update

That should do the trick

[lancomi]

thanks guys! its now working