网上查找，终于在WIN10系统安装VB6.0，运行除控件拖拉出现不清楚外，似乎运行正常。当编写查询时，用我认为比较成熟的语句，没达到预期目标，想了很久，又看不出问题，最后移到XP系统下调试，又成功了。在XP系统下生成安装文件，WIN10系统安装运行，结果正确。希望能为同样困惑之人来点灵感。代码如下：
Private Sub Text1_Change()
    Dim You As String
     If Text1.Text = "输入查询关键词" Or Text1.Text = "" Then
        You = ""
     Else
        You = Chr(34) + "%" + Text1.Text + "%" + Chr(34)
     End If

    If You = "" Then
         SQL = "SELECT * FROM 文件表  order by 文件ID desc"
    ElseIf You <> "" Then
         SQL = "SELECT * FROM 文件表  where 文件名 like " & You
    End If
   
        Adodc1(0).CommandType = adCmdunknow                'SQL必须用此句，否则会显示FROM子句出错
        Adodc1(0).RecordSource = SQL
        Adodc1(0).Refresh
   Set DataGrid1.DataSource = Adodc1(0)
   DataGrid1.Width = Form文件.Width - 300
   DataGrid1.Columns(1).Width = Form文件.Width * 0.7
End Sub