Private Sub Command1_Click() DB.Execute "DELETE From TB_W Where Code='" & Trim$(txtCode.Text) & "'" End Sub