title: Clnt is not declared. Why?
body: <pre><code>Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
      If txtBookID.Text.Length = 0 Or txtAuthor.Text.Length = 0 Or _
         txtTitle.Text.Length = 0 Or txtPurchasePrice.Text.Length = 0 Or _
         txtSalePrice.Text.Length = 0 Or txtInventory.Text.Length = 0 Then
          MessageBox.Show("Please enter all data.")
          Dim aBook As New clsBook(txtBookID.Text, txtAuthor.Text, _
          txtTitle.Text, CDec(txtPurchasePrice.Text), CDec(txtSalePrice.Text), _
          Clnt(txtInventory.Text))
          aBook.Add()
          lblNumberRecords.Text = books.Count
          MessageBox.Show("Record added to the database.")
          btnClear.PerformClick()
      End If
  End Sub
  </code></pre>