使用用户名和密码在Excel中添加和删除DSN / ODBC VBA

我设置的VBA代码从参数访问BD查询拉数据。 问题是我有通过DSN ODBCbuild立的SQL数据库的用户权限，但是其他用户没有。 所以我需要添加一个DSN连接用我的用户名和密码，然后删除代码完成后….这是我有我真的希望你们可以帮助..或者我会采取任何其他的build议，如何让它起作用。 我正在使用Excel从SQL服务器提取Access数据库中的数据。

Private Sub CommandButton1_Click() 'Step 1: Declare your variables Dim MyDatabase As DAO.Database Dim MyQueryDef As DAO.QueryDef Dim MyRecordset As DAO.Recordset 'Step 2: Identify the database and query Set MyDatabase = DBEngine.OpenDatabase _ ("\\prd\ZipCode_Tools.accdb") Set MyQueryDef = MyDatabase.QueryDefs("Query Zip Code & Market Seg") 'Step 3: Define the Parameters With MyQueryDef .Parameters("[Enter ZipCode]") = Range("D2").Value .Parameters("[Enter Market Seg]") = Range("D3").Value End With 'Step 4: Open the query Set MyRecordset = MyQueryDef.OpenRecordset 'Step 5: Clear previous contents Sheets("MySheet").Select ActiveSheet.Range("A6:F10000").ClearContents 'Step 6: Copy the recordset to Excel ActiveSheet.Range("A6").CopyFromRecordset MyRecordset 'Step 7: Add column heading names to the spreadsheet 'For i = 1 To MyRecordset.Fields.Count 'ActiveSheet.Cells(5, i).Value = MyRecordset.Fields(i - 1).Name 'Next i ' MsgBox "Your Query has been Run" End Sub