VB操作ACCESS数据库的问题

[苏克贝塔03]

 '我想把a表中的3个字段的内容全部复制到b表中，但是这样不行啊，请大家帮帮忙
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Connection
    Dim tem_id As Double
    Dim tem_name As Double
    Dim tem_num As Integer

Set rst = cnn.Execute("select * from a")
        rst.MoveFirst
        If Not rst.EOF Then
            Set rst = cnn.Execute("select id from a")
            tem_id = rst(0).value
            Set rst = cnn.Execute("select name from a")
            tem_name = rst(0).value
            Set rst = cnn.Execute("select num from a")
            tem_num = rst(0).value
            cnn.Execute ("INSERT INTO b (id,name , num) VALUES (" & tem_id & "," & tem_name & "," & tem_num & ")")
            rst.MoveNext
        End If

[of123]

cnn.Execute ("INSERT INTO b SELECT id, [name], num FROM a")

[苏克贝塔03]

[Quote=引用 1 楼 的回复:]
cnn.Execute ("INSERT INTO b SELECT id, [name], num FROM a")
[/Quote]
是的啊，解决了。
我多想了，谢谢你啊。