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

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






جرب هذا لتعديل

كود :

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

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