ممكن تصحيح للكود

الأفضل أن لا تسمي القاعدة بحروف عربية

جربي هيك

Imports System.Data
Imports System.Data.OleDb

Partial Class Default4
    Inherits System.Web.UI.Page
    Dim con As New OleDbConnection
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        con.ConnectionString = (" provider=microsoft.jet.oledb.4.0;datasource=" & Server.MapPath("~\app_data\قطاقيط.mdb"))


    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim cmd As New OleDbCommand()
        cmd.CommandText = " insert into user (@username,@useremail,@password,@userdate)"

        cmd.Parameters.AddWithValue("@username", textbox1.Text)
        cmd.Parameters.AddWithValue("@useremail", textbox2.Text)
        cmd.Parameters.AddWithValue("@password", textbox3.Text)
        cmd.Parameters.AddWithValue("@userdate", textbox4.Text)
        cmd.ExecuteNonQuery.ToString()
        If cmd Is Nothing Then
            MsgBox("أدخل المعلومات كلها ")
        Else
            MsgBox("تم التسجيل ")
        End If

    End Sub
End Class