这样扒橡桥修改if Adodc1.recordcount>春猛如银0 thenAdodc1.Recordset.MoveFirst Adodc1.Recordset.Find strAdodc1.Recordset.MoveNextelse msgbox "No record!"endif
Recordset是空值吧
加上这句试试Adodc1.Refresh
