Is there a fix to my into statement error?

Question

This is my code

    Private Sub Guna2Button1_Click(ByVal sender As System.Object, ByVal e As 
    System.EventArgs) Handles Guna2Button1.Click
    Dim pop As OpenFileDialog = New OpenFileDialog
    If pop.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
        Guna2CirclePictureBox1.Image = Image.FromFile(pop.FileName)
    End If
End Sub

Sub save()
    Try
        conn.Open()
        Dim cmd As New OleDb.OleDbCommand("insert into Table1('firstname','lastname','username','password','dob','role','status','pic') values(@firstname,@lastname,@username,@password,@dob,@role,@status,@pic)", conn)
        Dim i As New Integer
        cmd.Parameters.Clear()
        cmd.Parameters.AddWithValue("@firstname", Guna2TextBox1.Text)
        cmd.Parameters.AddWithValue("@lastname", Guna2TextBox2.Text)
        cmd.Parameters.AddWithValue("@username", Guna2TextBox3.Text)
        cmd.Parameters.AddWithValue("@password", Guna2TextBox4.Text)
        cmd.Parameters.AddWithValue("@dob", CDate(Guna2DateTimePicker1.Value))
        cmd.Parameters.AddWithValue("@role", Guna2ComboBox1.Text)
        cmd.Parameters.AddWithValue("@status", CBool(Guna2CheckBox2.Checked.ToString))

        'image convert to binary formate

        Dim FileSize As UInt32
        Dim mstream As New System.IO.MemoryStream
        Guna2CirclePictureBox1.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Jpeg)
        Dim picture() As Byte = mstream.GetBuffer
        FileSize = mstream.Length
        mstream.Close()

        cmd.Parameters.AddWithValue("@pic", picture)

        i = cmd.ExecuteNonQuery
        If i > 0 Then
            MsgBox("You are now a registered member.", vbInformation)

        Else
            MsgBox("Registration Failed. Try Again.", vbCritical)
        End If
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
    conn.Close()
End Sub

It says type "firstname" correctly but I did. It is also the same field name in my access database. I hope you could help me with my problem. I promise to be responsive. Thank you.

Answer 1

Also, Password is a reserved word:

"insert into Table1(firstname,lastname,username,[password],dob,role,[status],pic) values(@firstname,@lastname,@username,@password,@dob,@role,@status,@pic)"

and DateTimePicker returns a DateTime value:

cmd.Parameters.AddWithValue("@dob", Guna2DateTimePicker1.Value)
cmd.Parameters.AddWithValue("@status", Guna2CheckBox2.Checked)