一段SQL代码???

现在SQL数据库的A和B库中有两个同名表newcplbk，其表结构完全一致的,A库的表有数据，B库的表为空，我要将A库的表的数据导入B库的表,代码如下：请问错在哪里，正确的如何写？？？现在库以打开
'打开SQL的A库的记录集
strSql = "select * from A.dbo.newcplbk"
rstA.Open strSql, adoCnSql, 1, 1
'打开SQL的B库的记录集
strSql = "select * from B.dbo.newcplbk"
rstB.Open strSql, adoCnSql, 1, 1

'从A库中取一条记录
Do While Not rstA.EOF
'从B库中取一条记录
Do While Not rstB.EOF
strSql = "insert into B.dbo.newcplbk(cpzybm,cpbm,cpmc) values('" & rstA.Fields(0).Value & "','" & rstA.Fields(1).Value & "','" & rstA.Fields(2).Value & ")"

adoCnSql.Execute strSql
rstA.MoveNext
rstB.MoveNext
Loop
Loop