为什么绑定的数据的属性值只有geoname,我自己设定的属性

********为什么绑定的数据的属性值只有geoname,我自己设定的属性好象没有绑定上去。同时还想请教一下
关于调用数据库的资料创建一个点图层，如何根据相关字段不同的点显示不同颜色的点
lightning表结构如下：
ldate char10 ,ltime char8, longitude float,latitude float,intensity int.
我是这样写的。。。

Dim bRC
Dim objODBCQueryInfo
Dim objFields
　　　　 Dim BindLayerObject

'=================================================
bRC = CreateMapODBCQueryInfo(objODBCQueryInfo)
objODBCQueryInfo.SqlQuery = "select * from lightning　where ldate='";rdate;"' and intensity>10000"
objODBCQueryInfo.DataSource = "gis_lightning"
objODBCQueryInfo.ConnectString = "ODBC;dlg=0"
'=======================================

bRC=CreateMapFields(objFields)

objFields.Add "longitude","longitude",4,1
objFields.Add "latitude","latitude",4,1
objFields.Add "ltime","ltime",4,0
objFields.Add "intensity","intensity",4,3
'==============================================
' create bindlayer
bRC =CreateMapBindLayer(BindLayerObject)
BindLayerObject.LayerName = "雷电查询"
BindlayerObject.Filespec = myfolder + "mytab.tab"
BindLayerObject.RefColumn1 = "longitude" '经度
BindLayerObject.RefColumn2 = "latitude" '纬度
BindLayerObject.LayerType = 1 'MiBindLayerTypeXY　

'==============================================================

Session(cMapXObject).Datasets.Add miDataSetODBC,objODBCQueryInfo,"雷电查询","intensity","ltime",BindLayerObject,objFields

Set objLyr_flash = Session(cMapXObject).Layers("雷电查询")
objLyr_flash.autolabel = true
objLyr_flash.visible = true
objLyr_flash.LabelProperties.Visible=True

Dim objlyr_flash,objLyr_range

'************ change symbols style*************

objLyr_flash.OverrideStyle = True
objLyr_flash.Style.SupportsBitmapSymbols=True
objLyr_flash.Style.Symboltype =1 ' "miSymbolTypeBitmap"
objLyr_flash.Style.SymbolBitmapName="CAMP1-32.BMP"
objLyr_flash.Style.SymbolBitmapTransparent=True
Session(cMapXObject).ExportSelection = false

'=====================================================
'显示点信息
dim Layer1,strItemLayer,objDS,newfs,strHTML,f,fld

strItemLayer="雷电查询"
set Layer1 = Session(cMapXObject).Layers(strItemLayer)
Set objDS = Session(cMapXObject).DataSets(strItemLayer)

strHTML = ""
Set newfs = Session(cMapXObject).layer(strItemLayer).AllFeatures '这句好象没执行，不知这种写有没有错呀？


For Each f in newfs
strHTML = strHTML ; cStToFeatureNameIs ; " <FONT COLOR=""#ff0000"">" ;f.name;"</font><br>"　'这句也没有执行。。 ：(
strHTML = strHTML ; "<table>"　'这句执行

'Print the field name and value for each field
For Each fld in objDS.fields
strHTML = strHTML ; "<tr>"
strHTML = strHTML ; "<td>";fld.name;"</td><td>";objDS.value(f,fld);"</td>"　'这句也没有执行。。 ：(

strHTML = strHTML ; "</tr>" '这句执行

Next
strHTML = strHTML ; "</table>" '这句执行。

Next

我想点击闪电图标的时候显示出闪电的基本资料：如经度、纬度、时间、强度，不知我这样的绑定有什么不对的地方吗？？？为什么我点击闪电图标提取信息时只有一个字段geoname，可我绑定了4个属性的呀。。。。？？？？

我想根据闪电的强度不同显示不同颜色的闪电图标，不知可否？？？

恳请给予指点一二。。。。。谢谢