EXCEL VBA中使用"SELECT * FROM NG_history"后列的顺序总是变，如何调整，提供代码

在Excel VBA中，当你从一个数据库（比如Access数据库）查询数据并将其加载到工作表时，可能会遇到列顺序变化的问题。这通常是因为数据库查询中列的顺序没有被明确指定，导致每次查询执行时列的顺序可能会有所不同。

为了解决这个问题，你应该在执行SQL查询时明确地指定列的顺序。在VBA中，你可以这样做：

1. 使用SQL语句明确指定要从数据库中检索哪些列，并且以你希望的顺序列出它们。
2. 确保查询字符串是正确的，并且已经处理了所有必要的转义字符，特别是当列名包含空格或特殊字符时。
3. 在执行查询之前，确保数据库连接是正确建立的，并且你有足够的权限执行该查询。

以下是一个简单的VBA代码示例，它演示了如何以特定顺序从数据库表中选择列：

Sub LoadDataFromDB()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim connStr As String
    Dim sql As String

    ' 创建连接对象
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset

    ' 数据库连接字符串，根据实际情况进行修改
    connStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
    
    ' 明确指定列的顺序
    sql = "SELECT Column1, Column2, Column3 FROM NG_history ORDER BY Column1;"

    ' 打开连接
    conn.Open connStr
    
    ' 执行SQL查询
    rs.Open sql, conn
    
    ' 检查是否有记录返回
    If Not rs.EOF Then
        ' 将记录移动到第一行
        rs.MoveFirst
        
        ' 将数据加载到Excel工作表
        ' 假设你想从第一行第一列开始加载数据
        Range("A1").CopyFromRecordset rs
    End If
    
    ' 关闭连接和记录集
    rs.Close
    conn.Close
    
    ' 清理
    Set rs = Nothing
    Set conn = Nothing
End Sub

请确保根据你的实际数据库文件路径和数据库结构修改上述代码中的`connStr`和`sql`变量。