将程序中得到一个新的数组数据存到数据库的一个新的表格中

Dim db As New ADODB.Connection

Private Sub Command1_Click()
Dim socs() As String, rs() As Integer, temp1 As String, temp2 As String, j As Integer
temp2 = ""
  Set db = New Connection
  db.CursorLocation = adUseClient
  db.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=students;Data Source=PC-NAME"
  Set adoPrimaryRS = New Recordset
  adoPrimaryRS.Open "select * from soc", db, adOpenStatic, adLockOptimistic
 ReDim socs(adoPrimaryRS.RecordCount)
 ReDim rs(adoPrimaryRS.RecordCount)
 adoPrimaryRS.MoveFirst
i = 0
  Do While Not adoPrimaryRS.EOF
  temp2 = ""
  socs(i) = adoPrimaryRS(1)
  rs(i) = adoPrimaryRS(3)
  temp1 = "3-" + socs(i) + ",r=" + Trim(Str(rs(i)))
  temp2 = temp2 & temp1
  If rs(i) < 3 Then
  Print i + 1; temp2
  End If
  temp2 = temp2 + Chr(10) + Chr(13) '换行功能
  i = i + 1
  adoPrimaryRS.MoveNext
  Loop
  adoPrimaryRS.Close
 '以下我想把上面temp1得到的数据存到一个新的表格中（这是我的问题所在）
 For j = 0 To i
 adoPrimaryRS.Open "insert into zh (zhonglei,zuhe) VALUES (1,'temp1')", db, adOpenStatic, adLockOptimistic 'zh是我的一个空的数据库表格
 Next j
End Sub
'我遇到的问题是：我去数据库中查询zh这个表格的信息，表格中出现的是1和temp1.跟不上不是我想要存的数据，希望高手能够帮忙解决。简单点讲我就是想将程序中得到的一个新的数据存到数据库中的一个表格中。

1，没看出你的temp1是数组
2，
adoPrimaryRS.Open "insert into zh (zhonglei,zuhe) VALUES (1,'" & temp1 & "')", db, adOpenStatic,