資料問題?(編號：3943)

Dim MyDB As New ADODB.Connection
'設定MyDB為一個新的ADODB的Connection物件
Dim MyRec As New ADODB.Recordset
'設定MyRes為一個新的ADODB的Recordset物件
Dim objRec As ADODB.Recordset
Dim objFld As ADODB.Field
Private Sub Command1_Click()
On Error Resume Next
MyDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "/xxxx.mdb"
MyRec.Open "TRANSFORM Count(conum) AS conum SELECT callnum FROM digeyes WHERE telnum='" & Text1(0).Text & "' OR telnum='" & Text1(1).Text & "'OR telnum='" & Text1(2).Text & "'GROUP BY callnum PIVOT telnum;", MyDB, 1, 1
Set objRec = New ADODB.Recordset
objRec.Fields.Append "號碼", adInteger
objRec.Fields.Append Text1(0).Text, adInteger
objRec.Fields.Append Text1(1).Text, adInteger
objRec.Fields.Append Text1(2).Text, adInteger
objRec.Open
====================================
Do
objRec.AddNew ("號碼", Text1(0).Text, Text1(1).Text,Text1(2).Text),( MyRec("callnum"), Text1(0).Text, MyRec(Text1(1).Text,myrec(text1(2).text))
MyRec.MoveNext
Loop Until MyRec.EOF
====================================
各位大哥上面框起來的地方，小弟不知要如何處理，讓資料正確的填入資料錄(像access多筆相同資料，計次問題)麻煩教一下吧!我該如何解決??????
Set DataGrid1.DataSource = objRec
End Sub