datagrid

I am new with using the datagrid, and would like some instruction on how to use it. I would like to only use code to fill the datagrid. Any good examples out there?

Thanks,
smh

set objconn = createObject("ADODB.Connection")
objconn.open "driver={sql server};server=SQLSERVER;database=Logging;uid=administrator;Pwd=beer"
set mycommand = CreateObject("ADODB.Command")
Set mycommand.ActiveConnection = objconn
Set myrs = CreateObject("ADODB.Recordset")
mycommand.commandtext = "Select * from sometable"
myrs.open mycommand

set the datagrid.datasource = to myrs