万能查询代码：智能模拟查询mdb数据库

'##############################################################################################
'#####　　　　　　功能:智能查询、模拟查询当前目录下*.mdb数据库文件， 　　　　　　　　　 　#####
'#####　　　　　　　　 可把查询结果用电子表格打开编辑，也可把打印查询结果。 　　　　　　　#####
'#####　　　　　　浙江磐安文化　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　#####
'#####　　　　　　E:zzwwbb2008@163.com　　　　　　　　　　　　　　　　　　　　　　　　　　#####
'##############################################################################################
    
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'1、加入Label1和Text1二控件，设置其Index均为0　　　　　　　　　　　　　　　　　　　　　　　 　'
'2、加入Command1Command2、Command3、Command4、Command5按钮　　　　　　　　　　　　　　　　　　'
'3、加入MSFlexGrid1              　　　　　　　　　　　　　　　　　　　　　　　　　　　　　   '
'4、引用Microsoft Scriping Runtime 　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　'
'5、引用Microsoft DAO 3.60 Object Library，其中Access97为Microsoft DAO 3.51 Object Library　　'
'6、引用Microsoft Excel 9.0 Object Library，其中Excel97为Microsoft Excel 8.0 Object Library  　　　　　　　　　　　　　　　　　　 '
'再用以下代码完全覆盖　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 　'
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    
    Dim MyAppPath As String '数据库路径
    Dim MyRecordsetName As String '数据表名称
    Dim MyDatabasePathAndName As String '数据库路径及名称
    Dim s As String '暂存由用户界面所输入的SQL语句
    Dim MyTxt As String '写入的是“查询.txt”还是“打印.txt”
    Dim RstFieldsType() As Integer '记录字段的类型
    Dim MyDatabaseFieldsCount As Integer '数据表字段数
    Dim MyDatabaseRecordCount As Double '数据表记录数
    Dim FieldLookValue As Boolean '核对数据类型
    Dim MyViewBoolean As Boolean '预览否


Private Sub Form_Load()

    '初始化
    If Right$(App.Path, 1) <> "\" Then
        MyAppPath = App.Path & "\"
    Else
        MyAppPath = App.Path
    End If
    
    If Dir(MyAppPath + "*.mdb") = "" Then
        MsgBox "当前位置没（*.mdb）数据库文件，请增加！！！", 48, "差错信息！！！"
        Unload Me
        Exit Sub
    End If
    
    '历遍当前目录下的数据库（暂时少于20个）供其选择，若只有1个，直接用之。
    Dim MyMdb(1 To 20) As String
    
    i = 1
    MyFile = Dir(MyAppPath + "*.mdb")
    Do Until MyFile = "" Or i > 20
        MyMdb(i) = MyFile
        'MsgBox MyMdb(i)
        MyFile = Dir
        i = i + 1
    Loop
        
    If i - 1 > 1 Then '当前目录下存在多个Mdb数据库时，供其选择！
        Dim MyInputBox As String
        For j = 1 To i - 1
            MyInputBox = MyInputBox & j & "、“" & MyMdb(j) & "”" & Chr(13)
        Next