自动根据IP显示所在城市的天气预报代码（可显示7天内天气）

ip地址查询 http://www.ip180.com/index.asp
手机号码查询 http://www.ip180.com/mobile/index.asp
身份证号码查询 http://www.ip180.com/idcard/index.asp
列车时刻查询 http://www.ip180.com/train/index.asp

酸汤水饺

凉拌搅团

Sub LoadCommandList()
   Dim objConn As New Odbc.OdbcConnection
   Dim objCmd As New Odbc.OdbcCommand
   Dim objDataReader As Odbc.OdbcDataReader
   CommandList.Items.Clear()
   objConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Application.StartupPath & "\database.mdb"
   Debug.Print(Application.StartupPath & "\da