Simone
Adodc1.Refresh一般只在ADodc改变连接对像时才使用一般添加修改好像不可以加连续快速添加会使添加内容出错,这个可以试试在Adodc1.Recordset.UpdateBatch后加入一个DoEvents或者直接控制输入按钮的可用状态,等待祥歼添谨纯冲加完成后才进行下一次操作Private Sub Command2_Click()Command2.enabled=0Adodc1.Recordset.MoveLastText6.Text = Adodc1.Recordset.Fields(0) + 1Adodc1.Recordset.AddNewAdodc1.Recordset.Fields(0).Value = Text6.TextAdodc1.Recordset.Fields(1).Value = Text5.TextAdodc1.Recordset.UpdateBatchDoEventsCommand2.enabled=1Text5.Text = Text5.Text + 1End Sub打字不裤芦易，如满意，望采纳。
