[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته




لقد أعتمتد على أن الحقل userpass هو نصي، ولكن حين دققت في ما كتبته أنت يبدو لي رقمي
جرب هذا التعديل بعد العتماد أن حقل userpass رقمي (إذا كنت وضعت On Error قم بتعطيله لمعرفة إذا كان هناك خطأ في جملة الاستعلام)

كود :

Dim saveok As Integer
saveok = 0
saveok = winclass.SQLEXICUTE(" Insert Into Users (username,userpass) Valuse ('" & TextBox1.Text & "'," & TextBox2.Text & " )")

If saveok = 1 Then MsgBox("تمت عملية الاضافة", MsgBoxStyle.Exclamation)
    TextBox1.Text = ""
    TextBox2.Text = ""
    filldatagrid()
End If

السلام عليكم ورحمة الله وبركاته