Public conn As ADODB.Connection  '-----定义数据库连接  Public 方便每个SUB使用 不需要重复定义
Public RES As ADODB.Recordset    '-----定义结果集  结果集和二维表很类似
Public Sign As String
Dim row, col As Integer
Dim Sql As String