VB6: Format Number pada Datagrid

Artikel kali ini Rani coba menanggapi komentar Ahman Fadholi.
Untuk cara menampilkan data mysql ke datagrid lihat detail nya disini:
http://rani-irsan.blogspot.com/2011/04/2-menampilkan-data-di-datagrid.html

Kita akan menampilkan field harga pada table produk, struktur table produk adalah sebagai berikut:
CREATE TABLE `produk` (
`kodeproduk` varchar(10) NOT NULL,
`namaproduk` varchar(50) NOT NULL,
`harga` double NOT NULL,
`createddate` datetime NOT NULL,
`createdby` varchar(50) NOT NULL,
`modifieddate` datetime DEFAULT NULL,
`modifiedby` varchar(50) DEFAULT NULL,
PRIMARY KEY (`kodeproduk`)
) ENGINE=MyISAM DEFAULT CHARSET=latin1

Isi dari table

Untuk menambah kan format numerik tambahkan code berikut:
grdData.Columns(2).NumberFormat = "#,##0.00"
grdData.Columns(2).Alignment = dbgRight

Kode lengkap nya pada Event Form_Load
Private Sub Form_Load()
On Error GoTo errHandler

Dim l As Long

Open_Connection

'Load Data
sSQL = "select kodeproduk, namaproduk, harga from produk"
Set rsMySQL = oConn.Execute(sSQL)

Set grdData.DataSource = Display_Data(rsMySQL)

'Setting grid
With grdData
    .Columns(0).Caption = "Kode"
    .Columns(1).Caption = "Nama"
    .Columns(2).Caption = "Harga"
    .Columns(0).Width = 1000
    .Columns(1).Width = 2000
    .Columns(2).Width = 1000

    .Columns(2).NumberFormat = "#,##0.00"
    .Columns(2).Alignment = dbgRight
End With

rsMySQL.CloseRecordset
Set rsMySQL = Nothing

Exit Sub
errHandler:
MsgBox "Error on: frmHarga" & vbCrLf & "Event: Form_Load" & _
vbCrLf & "Err No. " & Err.Number & vbCrLf & Err.Description
End Sub

Coba run debug: