请教：连接数据库的宏代码

kw868

宏代码如下：
Sub 按钮1_Click()

conn , xRs

Set conn = CreateObject("ADODB,Connection")
conn.Open "Provider=SQLOLEDB,1;Persist Security Info=False;User ID=sa;PWD=XXXXX;Initial Catalog=today;Data Source=XXX.XXX.XXX.XX"
Set xRs = CreateObject("ADODB,RecordSet")

sSql = "select zipcode,duty_by,custid,name_short,groupid,groupid_pro,sku_tent,stop_use  from t_bp_cust  where  stop_use=0"
xRs.Open sSql, conn, 1, 3

Sheetl.Cells.Clear
Sheetl.Range("AI").CopyFromRecordset xRs
xRs.Close

conn.Close
Set xRs = Nothing
Set conn = Nothing
Sub

kw868

呼叫版主，这是问题能不能帮我解决一下？