SET @runtot:=0;

SET @itemname:=NULL;

CREATE TABLE d1 AS
  (SELECT q1.id,
          q1.itemname,
          q1.purchase,
          q1.sale,
          CASE
            WHEN @itemname = q1.itemname THEN @runtot := @runtot + ( q1.purchase
                                                                     +
                                                                   q1.sale )
            ELSE @runtot := ( q1.purchase + q1.sale )
          end                      AS ClosingBalance,
          @itemname := q1.itemname AS Item
   FROM   (SELECT id       AS ID,
                  itemname AS ItemName,
                  purchase AS Purchase,
                  sale     AS Sale
           FROM   itemledger
           ORDER  BY itemname) AS q1)

Dim connectionString9921 = "Data Source=localhost;port=3306;Initial Catalog=hasna;User Id=root;password=''; Convert Zero Datetime=True"

    Dim query9921 = "CREATE TABLE D1 AS (SELECT q1.ID,q1.ItemName,q1.Purchase,q1.Sale, CASE WHEN @itemname=q1.ItemName THEN @runtot := @runtot + (q1.Purchase + q1.Sale) ELSE @runtot:=(q1.Purchase + q1.Sale)End AS ClosingBalance, @itemname:=q1.ItemName as Item FROM (SELECT ID AS ID,ItemName AS ItemName,Purchase AS Purchase,Sale AS Sale  FROM  itemledger ORDER  BY ItemName) AS q1) "


    Using connection9921 As New MySqlConnection(connectionString9921)
        Dim command As New MySqlCommand(query9921, connection9921)

        command.Parameters.AddWithValue("@runtot", "0")
        command.Parameters.AddWithValue("@itemname", "NULL")
        command.Connection.Open()
        command.ExecuteNonQuery()
        command.Connection.Close()

connectionString9921 = "Data Source=localhost;port=3306;Initial Catalog=hasna;User Id=root;password=''; Convert Zero Datetime=True"

connectionString9921 = "server=localhost;user id=root;database=(your database);Convert Zero DateTime=True"