VBA把access中的查询结果,提交到sql2005中的一个表中

不用access中自带升级到sql中的功能,而是用VBA
        Dim rs1 As ADODB.Recordset
        Set rs1 = New ADODB.Recordset
        Dim sql1 As String
        sql1 = " SELECT a,b,c from tb1"  'tb1是access中的表
        rs1.Open sql1, CurrentProject.Connection, adOpenForwardOnly, adLockOptimistic
        Dim conn As New ADODB.Connection
        Dim rs As New ADODB.Recordset
        Dim sql, strCn As String
        strCn = "Provider=sqloledb;Server=192.168.0.1;Database=abc;uid=sa;pwd=qwe"
        conn.Open strCn
        sql = "insert into tb_test(a,b,c) values('" & rs1.Fields("a") & "','" & rs1.Fields("b") & "','" &  rs1.Fields("c") & "')"    'tb_test是sql中的表
Set rs = conn.Execute(sql)
Set rs = Nothing
Set conn = Nothing

但是结果在tb_test中只能添加一条记录，实际上tb1（access中的表）中有很多条记录，怎样把tb1中的记录全部添加到tb_test（sql中的表）中去

---

但是在sql2005中用刚才的方法添加的数据有的是乱码呢?
sql2005中字段类型是:nvarchar(50)
access中字段类型是：文本
{{---