将数据库的查询结果追加到ACCESS表,请求高手帮助,万分感

将数据库的查询结果追加到ACCESS表,请求高手帮助,万分感谢!
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sql As String
Set conn = New ADODB.Connection
conn.Open "Provider=MSDASQL;DRIVER=SQL Server; SERVER=server;DATABASE=td; UID=sa; PWD="
sql = "SELECT d.bh, d.dm FROM d;"
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
rst.Open sql, conn
rst.MoveFirst
'此处加入追加的代码,表名为'baobiao'

rst.Close
Set rst = Nothing