สอบถามเกี่ยวกับการ Insert ข้อมูลลง Access โดยใช้ VB.net 2008

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim objConn As New OleDbConnection
        Dim objCmd As New OleDbCommand
        Dim strConnString, strcmdtext As String

        strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("App_Data/e-learning.mdb") & ";Jet OLEDB:Database Password=;"

        strcmdtext = "INSERT INTO 'Regisuser' (user_acc,user_pass,user_staus,user_name,user_lname,user_email,user_level,datetime) " & _
        " VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & Convert.ToString(DropDownList1.SelectedValue) & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','2','" & DateTime.Now.ToString() & "')"

        objConn.ConnectionString = strConnString
        objConn.Open()
        objCmd.Connection = objConn
        objCmd.CommandText = strcmdtext
        objCmd.CommandType = CommandType.Text

        Try
            objCmd.ExecuteNonQuery()
            objConn.Close()
            Response.Redirect("index.aspx")
        Catch ex As Exception
            Page.ClientScript.RegisterClientScriptBlock(Me.[GetType](), "myKey", popup.ShowMessage("เกิดข้อผิดพลาดในการบันทึกข้อมูล", ""), True)
        End Try