要一段用ADO链接ACCESS的代码，在EXCEL VBA 下操作ACCESS 数据库，删除ACCESS 字段下的重复值并能保留一条唯一值

在Excel VBA中使用ADO（ActiveX Data Objects）连接到Access数据库，并删除字段中的重复值，可以按照以下步骤编写代码：

Sub RemoveDuplicates()
    ' 导入需要连接的access数据库信息
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim strSQL As String
    Dim fieldToRemove As Variant ' 指定要去重的字段名

    ' 创建连接字符串，假设数据库名为"YourDatabase.accdb"，表名为"YourTable"
    Set conn = New ADODB.Connection
    conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & "YourDatabase.accdb"; _
        "User ID=your_username;Password=your_password;" ' 输入实际的用户名和密码
    
    ' 设置SQL查询语句，删除指定字段的重复记录，只保留第一条
    strSQL = "DELETE * FROM YourTable WHERE " & fieldToRemove & " NOT IN (SELECT MIN(" & fieldToRemove & ") AS MinValue FROM YourTable GROUP BY " & fieldToRemove & ")"
    
    ' 执行删除操作
    Set rs = ExecuteSQL(conn, strSQL)
    
    ' 关闭记录集和连接
    rs.Close
    Set rs = Nothing
    conn.Close
    Set conn = Nothing

    ' 定义辅助函数来执行SQL语句并返回Recordset
    Private Function ExecuteSQL(connection As ADODB.Connection, sqlStatement As String) As ADODB.Recordset
        Dim rsTemp As ADODB.Recordset
        On Error Resume Next
        Set rsTemp = connection.Execute(sqlStatement)
        If Err.Number <> 0 Then
            MsgBox "Error executing SQL: " & Err.Description
            Err.Clear
        Else
            Set ExecuteSQL = rsTemp
        End If
        On Error GoTo 0
    End Function
End Sub

'