VB连接EXCEL数据库的字符串写法

Private Sub Command1_Click()

Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset

rs.CursorLocation = adUseClient

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source= C:\Documents and Settings\Administrator\桌面\vb study\测试EXCEL\;Extended Properties='Excel 8.0;HDR=Yes'"
   
 Set rs = cnn.Execute("update [Excel 8.0;Database=C:\Documents and Settings\Administrator\桌面\vb study\测试EXCEL\export.xls].[payroll$] set b.交流干部津贴 = a.交流干部津贴 from [Excel 8.0;Database=C:\Documents and Settings\Administrator\桌面\vb study\测试EXCEL\export.xls].[payroll$] a,[Excel 8.0;Database=C:\Documents and Settings\Administrator\桌面\vb study\测试EXCEL\2011-08月工资发放表-计算0816(3).xls].[工资$] b Where a.员工工号 = b.工号 ")

rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing

End Sub

执行更新语句，在连接字符串中DATA SOURCE要怎么写？
Data Source= C:\Documents and Settings\Administrator\桌面\vb study\测试EXCEL\ 

这是用到这个文件夹下的两个表。 谢谢大家帮助。

Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DBQ=D:\我的文档\20100701.xls;DefaultDir=D:\我的文档;Driver={Microsoft Excel-Treiber (*.xls)};DriverId=790;FIL=excel 8.0;FILEDSN=E:\ikk.dsn;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;ReadOnly=1;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"