RecordCount

Dim cmd = New SqlCommand("SELECT COUNT(authors.au_fname) " & _
"FROM (authors INNER JOIN titleauthor ON " & _
"authors.au_id = titleauthor.au_id) INNER JOIN " & _
"titles ON titleauthor.title_id = titles.title_id", dbConn)

'*******************

' RecordCount

'*******************

iMax = CInt(cmd.ExecuteScalar()) - 1