求助!将数据库的查询结果追加到ACCESS表,版主帮忙~~

bjyutong

将数据库的查询结果追加到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

bjyutong

自己顶起来,请高手在百忙中拿出一点时间来看下,万分感谢!

bjyutong

高手们,你们都这么忙嘛.....

wufeng980114

路过，顶一下