opendatabase打开sql数据库的问题

opendatabase打开sql数据库的问题
Private myWorkspace As DAO.Workspace
Private myDatabase As DAO.Database
Private myRecord As DAO.Recordset
Set myWorkspace = CreateWorkspace("myWorkspace", "Admin", "", dbUseJet)
Set myDatabase = myWorkspace.OpenDatabase(远程sql数据库, ";")
Dim str1 As String
str1 = "provider=SQLOLEDB.1;persist Security Info=False;User ID=sa;Initial Catalog=Wage;Data Source=192.168.0.47"
Adodc1.ConnectionString = str1
Adodc1.RecordSource = "select * from " & Combo1.Text & ""
Adodc1.Refresh
DataGrid1.ReBind
DataGrid1.Refresh
就是上面的opendatabase中的远程sql数据库该怎么填写?就是下面的str中连接的那个数据库。