การเพิ่มข้อมูลมีปัญหาครับ ช่วยแก้หน่อย มันไม่ยอมเพิ่มครับ ปกติ ก็เชื่อมต่อ dbได้มีรูปฟอร์มให้ดู

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        preidname = TextBox1.Text
        prepassword = TextBox2.Text
        confirmpass = TextBox3.Text
        preadmin_code = TextBox4.Text
        admin_code = "CL9X-9R79-8B8X8-27F55-D2"
        If preidname = "" And prepassword = "" And confirmpass = "" And preadmin_code = "" Then

            MessageBox.Show("ข้อมูลในช่องที่ต้องใส่ไม่ครบ กรุณาใส่ให้ครบด้วยค่ะ" & vbCrLf & "กรุณาใส่ข้อมูลให้ถูกต้อง", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Else
            If prepassword = confirmpass Then
                If preadmin_code = admin_code Then
                    mycon.Open()
                    mycmd = New OleDbCommand("INSERT InTO user_db(idname,password)" & _
        "Values ('" & preidname & "','" & prepassword & "')", mycon)
                    mycmd.ExecuteNonQuery()
                    MessageBox.Show("บันทึกข้อมูลลงเรียบร้อย", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    mycon.Close()
                Else
                    MessageBox.Show("admin code ผิดพลาด" & vbCrLf & "กรุณาใส่ข้อมูลให้ถูกต้อง", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)
                End If
            Else
                MessageBox.Show("password ทั้ง 2 ช่องไม่ตรงกัน" & vbCrLf & "กรุณาใส่ข้อมูลให้ถูกต้อง", Me.Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)
            End If
        End If
    End Sub