>Dim cn As New ADODB.Connection >Dim cm As New ADODB.Command >cn.Open "Driver=Microsoft Visual Foxpro Driver;UID=;SourceType=DBF;Deleted=YES;Null=NO;SourceDB=D:\" >cm.ActiveConnection = cn >cm.CommandType = adCmdUnknown >cm.CommandText = "DELETE FROM C:\windows\system\Q12.dbf WHERE officeno = " & Chr(34) & cboOfficeNum.List(cboOfficeNum.ListIndex) & Chr(34) >cm2.Execute >>My AdvaThanksnce