你可以使用FindFirst进行搜索(如果建立了索引，可以使用Seek)。可以采用类似下面的办法： 
    Data1.RecordSet.FindFirst "ID = " + txtID 
    If Data1.RecordSet.NoMatch Then 
     Data1.RecordSet.AddNew 
     txtName.SetFocus 
    End If 
<END>
    