อยากทราบวิธีการ export เป็น excel.csv ให้ตัวเลขที่มี 0 อยู่ข้างหลัง ค่ะ

Dim objConn As System.Data.OleDb.OleDbConnection
Dim objCmd As System.Data.OleDb.OleDbCommand
Dim strConnString, strSQL As String
Dim i As Integer

'*** Create Text Files (Columns Default ***' ***'
Dim StrWer As StreamWriter
StrWer = File.CreateText(Server.MapPath(strPath) & strFileName)
StrWer.Write("PM,SBU,MainCustCode,MainCustName")

StrWer.Close()



'*** Connect to CSV ***'
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(strPath) & ";Extended Properties='TEXT;HDR=Yes;FMT=Delimited;Format=Delimited(,)'"
objConn = New System.Data.OleDb.OleDbConnection(strConnString)



'*** Loop Write CSV ***'
For i = 0 To dt.Rows.Count - 1
    strSQL = "INSERT INTO [" & strFileName & "] ([PM], [SBU], [MainCustCode], [MainCustName]) VALUES (@PM, @SBU, @MainCustCode, @MainCustName)"
    objCmd = New System.Data.OleDb.OleDbCommand(strSQL, objConn)
    objCmd.Parameters.AddWithValue("@PM", dt.Rows(i)("PM").ToString())
    objCmd.Parameters.AddWithValue("@SBU", dt.Rows(i)("SBU").ToString())
    objCmd.Parameters.AddWithValue("@MainCustCode", dt.Rows(i)("MainCustCode").ToString())
    objCmd.Parameters.AddWithValue("@MainCustName", dt.Rows(i)("MainCustName").ToString())

    objConn.Open()
    objCmd.ExecuteNonQuery()
    objConn.Close()
Next

Me.lblText.Text = "Export Successfully <a href=" & strPath & strFileName & " >Click here</a> "

        StreamWriter writer = File.CreateText(Server.MapPath("~/test.csv"));
        writer.Write("PM,StockCode,Description");
        writer.Close();

        OleDbConnection connection = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Server.MapPath("~/") + ";Extended Properties=\"TEXT;HDR=Yes;FMT=Delimited;Format=Delimited(,)\";");

        foreach (DataRow Dr in Dt.Rows)
        {
            string commandString = "INSERT INTO [test.csv] ([PM], [StockCode], [Description]) VALUES (@PM, @StockCode, @Description)";
            OleDbCommand command = new OleDbCommand(commandString, connection);
            command.Parameters.AddWithValue("@PM", Dr["PM"].ToString());
            command.Parameters.AddWithValue("@PM", Dr["StockCode"].ToString());
            command.Parameters.AddWithValue("@PM", Dr["Description"].ToString());

            try
            {
                connection.Open();
                command.ExecuteNonQuery();
                connection.Close();
            }
            catch (Exception ex)
            {
                MessageBox.Show(ex.Message);
            }
        }

objCmd.Parameters.AddWithValue("@PM", "'" & dt.Rows(i)("PM").ToString() & "'")