Insert query executing properly but not showing in database.executenonquery returns 1.

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        Try
            Dim sqlconn As New OleDb.OleDbConnection
            Dim sqlquery As New OleDb.OleDbCommand
            Dim connString As String
            connString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\PrMas.accdb"
            sqlconn.ConnectionString = connString
            sqlquery.Connection = sqlconn
            sqlconn.Open()
            sqlquery.CommandText = "INSERT INTO Project(ProjectName,Abstract,SemesterCreated,AuthorName) VALUES (@projectname,@abstract,@semestercreated,@authname)"
            sqlquery.Parameters.AddWithValue("@projectname", txtProjectName.Text)
            sqlquery.Parameters.AddWithValue("@abstract", txtAbstract.Text)
            '  cmd.Parameters.AddWithValue("@creationDate", Convert.ToDateTime(DPCreationDate.Value.ToString))
            sqlquery.Parameters.AddWithValue("@semestercreated", CBSemCreated.Text)
            'cmd.Parameters.AddWithValue("@addeddate", DateTime.Now)
            sqlquery.Parameters.AddWithValue("@authname", txtAuthorName.Text)
            Dim a As Integer
            a = sqlquery.ExecuteNonQuery()
            If a > 0 Then
                MessageBox.Show("New User successfully added.")

            Else
                MessageBox.Show("Try Again")
            End If
            sqlconn.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try