[حريف برمجة]

كود :

Sub add1()
     sql = "INSERT INTO DB_SIGN VALUES(@FRIST_NUM, @LAST_NUM, @EMAIL_NUM, @PASSWORD_NUM, @PHONE_NUM, @USER_NUM, @SER_NUM, @POINT_NUM, @DATE_NUM)"
       cmd1 = New SqlCommand(sql, conn)
       With cmd1.Parameters
           .AddWithValue("@FRIST_NUM", frsttx.Text)
           .AddWithValue("@LAST_NUM", lsttx.Text)
         .AddWithValue("@EMAIL_NUM", emltx.Text)
           .AddWithValue("@PASSWORD_NUM", pastx.Text)
         .AddWithValue("@PHONE_NUM", phontx.Text)
         .AddWithValue("@USER_NUM", usrtx.Text)
           .AddWithValue("@SER_NUM", TextBox5.Text)
         .AddWithValue("@POINT_NUM", TextBox1.Text)
         .AddWithValue("@DATE_NUM", TextBox4.Text)

       End With
       conn.Open()
     cmd1.ExecuteNonQuery()
       conn.Close()

   End Sub