这段程序有什么错误

这段程序有什么错误，Private Sub Command1_Click()
Dim cnn1 As ADODB.Connection
Dim cnn2 As ADODB.ConnectionDim rs1 As ADODB.Recordset
Dim rs2 As ADODB.RecordsetSet cnn1 = New ADODB.Connection
'Trim(Text1.Text)
cnn1.Open "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=D:\database\product.dbf;SourceType=DBF"
'cnn1.Open "Provider=msdasql;DRIVER=Microsoft Visual FoxPro Driver;UID=;Deleted=yes;Null=no;Collate=Machine;BackgroundFetch=no;Exclusive=No;SourceType=DBF;SourceDB=Trim(Text1.Text);"     
Set cnn2 = New ADODB.Connection
strCnn = "Provider=sqloledb;Data Source=TANGZL;Initial Catalog=pubs;User Id=sa;Password=sa;"
cnn2.Open strCnn
     
Set rs1 = New ADODB.Recordset
rs1.CursorType = adOpenKeyset
rs1.LockType = adLockOptimistic
rs1.Open "D:\database\product.dbf", cnn1, , , adCmdTable
     
    
Set rs2 = New ADODB.Recordset
rs2.CursorType = adOpenKeyset
rs2.LockType = adLockOptimistic
rs2.Open "product", cnn2, , , adCmdTable
'&trim(Text3.text)&
Dim i  As Integer
'Dim fd As Fieldrs1.MoveFirst
Do While Not rs1.EOF
For i = 0 To rs1.Fields.Count - 1
If Not IsNull(rs1.Fields(i).Value) Then
rs2.Fields(i).Value = rs1.Fields(i).Value
End If
Next
rs1.MoveNext
Loop
'For Each fd In rs1.Fields
'If Not IsNull(fd.Value) Then
'rs2.Fields(i).Value = fd.Value
'End If
'Next
Dim j As Integer
gridemployee.Clear
gridemployee.Rows = rs2.RecordCount + 1
gridemployee.Cols = rs2.Fields.Count
For j = 0 To rs2.Fields.Count - 1
gridemployee.TextMatrix(0, j) = rs2.Fields(j).Name
gridemployee.ColWidth(j) = 2 * TextWidth(rs2.Fields(j).Name)
Next jFor i = 0 To rs2.RecordCount - 1
For j = 0 To rs2.Fields.Count - 1
If Not IsNull(rs2.Fields(j).Value) Then
gridemployee.TextMatrix(i + 1, j) = rs2.Fields(j).Value
End If
Next j
rs2.MoveNext
Next i
End Sub