"在工程---部件中新增 microsoft ADO data contcrol 6.0"在窗體新增兩個adodc控制元件，分別連線好資料庫和所需匯入匯出的表"adodc1連線要匯入的表，adodc2連線要匯出的表Private Sub Command1_Click()Dim i, j As IntegerAdodc2.RefreshIf Adodc2.Recordset.RecordCount > 0 Then Adodc2.Recordset.MoveFirst For j = 1 To Adodc2.Recordset.RecordCount Adodc1.Recordset.AddNew "新增一條空記錄 For i = 0 To Adodc2.Recordset.Fields.Count - 1 Adodc1.Recordset.Fields(i).Value = Adodc2.Recordset.Fields(i).Value Next i Adodc2.Recordset.MoveNext Next j Adodc1.Recordset.UpdateElse MsgBox "表2沒有資料可入導表2"End IfEnd Sub