如何跳過選擇 DSN 的畫面?(編號：7109)

我在Excel 中有下列的程式,但執行時它都會出現要我選擇dsn的畫面,要如何才能跳過此畫面呢?我在程式中不是已經告知dsn是那一個了嗎?請各位高手幫忙!謝了!
Sub UserQueryTable()
sqlstring = "select * from TableA "
　　connstring = _
　　　　"ODBC;DSN=DSNfile;UID=AAA;PWD=BBB;Database=DatabaseA"
　　With ActiveSheet.QueryTables.Add(Connection:=connstring, Destination:=Range("A1"), Sql:=sqlstring)
　　　　.Refresh
　　End With

End Sub