想用Unique Table进行多表更新，可是出错，帮我看看，谢谢！！

Dim rs As ADODB.Recordset
Private Sub Command1_Click()Dim db As ADODB.Connection
Set db = New Connection
db.CursorLocation = adUseClientdb.Open "PROVIDER=MSDASQL;dsn=xxx;uid=sa;pwd=123456;database=master;"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Properties.Item("Unique Catalog").Value = "master"
rs.Properties.Item("Unique Schema").Value = "dbo"rs.Properties.Item("Unique Table").Value = "td1"
rs.Open "SELECT td1.age, td2.name FROM td1 inner JOIN td2 ON td1.id = td2.id", db, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
End SubPrivate Sub Command2_Click()
rs.Delete
End Sub帮我改改