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

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

elmlk كتب :بعد تتبع الكود هذا نوع الخطأ
incorrect syntax near 'values'
ما هو الحل

بسبب النسخ واللصق لم انتبه انك مخطأ في كتابة Values ، وبالنسبة للكود السابق ليس كالذي قبله في علامات التنصيص
حاول لا تستخدم On Error إلا بحساب
تفضل

كود :

Dim saveok As Integer
saveok = 0
saveok = winclass.SQLEXICUTE(" INSERT INTO Users (username,userpass) [color=#FF0000]VALUES [/color]('" & TextBox1.Text & "'," & TextBox2.Text & " )")

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

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