Dim oLayerInfo As MapXLib.LayerInfo
Set oLayerInfo = New MapXLib.LayerInfo
oLayerInfo.Type = miLayerInfoTypeServer
oLayerInfo.AddParameter "Name", "STREET"
oLayerInfo.AddParameter "ConnectString", "DRIVER={SQL SERVER};SERVER=DANSHI\WINCC;VID=;PWD=;Database=WORLD"
oLayerInfo.AddParameter "Query","SELECT * FROM STREET"
' oLayerInfo.AddParameter "Query", ""
oLayerInfo.AddParameter "toolkit", "ODBC"
oLayerInfo.AddParameter "Cache", "OFF"
oLayerInfo.AddParameter "MBRSearch", "OFF"
oLayerInfo.AddParameter "AutoCreateDataset", 1
oLayerInfo.AddParameter "DatasetName", "STREET"
Map.Layers.Add oLayerInfo