怎样能把表中的记录编号合并到一起,然后加入某个表中的字段中?

Question

例如:
表A里边:
编号    内容
1        A
2        B
3        C
那么就将这个3个记录的编号变成:1,2,3
然后放入到表B中
例如表B
编号B     编号集
A1           1,2,3
A2            ...谢谢指点!

Answer 1

不行呀,做不出来.Private Sub Command1_Click()
If rs.State = adStateClosed Then
rs.Open "tab2", dbcon, adOpenKeyset, adLockOptimistic
End If
Dim a() As String
Dim i As IntegerFor i = 0 To rs.Fields.Count
a(i) = rs.Fields(0).Value
rs.MoveNext
Next i
Form1.Text1.Text = aEnd Sub出错,类型不匹配.应该得转化一下吧?怎样把a()转换成数呢?
另外,就像我说的那样,怎样才可以是1,2,3这样的保存?