Imports System.Data.OleDb
Public Class form4
    Dim con As OleDbConnection
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("اكتب اسم للمستخدم")
            Exit Sub
        End If
        If TextBox2.Text <> TextBox3.Text Then
            MsgBox("كلمات السر غير متطابقة")
            TextBox2.Clear()
            TextBox3.Clear()
            Exit Sub
        End If
        Dim cmd As New OleDbCommand("insert into users (username,password) values (?,?)", Con)
        cmd.Parameters.AddWithValue("@username", OleDbType.VarChar).Value = Trim(TextBox1.Text)
        cmd.Parameters.AddWithValue("@password", OleDbType.VarChar).Value = Trim(TextBox2.Text)

        Con.Open()
        cmd.ExecuteNonQuery()
        Con.Close()
        MsgBox("تم حفظ المستخدم الجديد بنجاح", MsgBoxStyle.Information)
        Me.Hide()
        form2.Show()
    End Sub