共享计算机用户名和密码自动输入

[freeheartsz]

请教大家一个问题,我在使用如下语句将EXCEL中的数据导至ACCESS:
Dim conn As New ADODB.Connection
'Dim sh As Worksheet
Set conn = CreateObject("adodb.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=192.168.1.8\data\123.mdb"
conn.Execute ("delete * from QIS_return_ROS")
'For Each sh In Worksheets
conn.Execute "INSERT INTO [QIS_return_ROS] SELECT * FROM [Excel 8.0;DATABASE=" & ThisWorkbook.FullName & ";].[data$];"
'Next
conn.Close
Set conn = Nothing

其中"192.168.1.8"是局域网的一台共享文件夹,这台计算机设有用户名和密码!ACCESS文件本身没有密码!请问大家如何在这个语句的基础上:增加一些代码,能让它每次自动输入用户名和密码(注意:是计算机的用户名和密码,不是ACCESS文件)