Imports System
Imports System.Data
Imports System.Data.SqlClient
					

Private Sub btnTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTest.Click
    Dim myConnString As String = _
        "User ID=sa;password=sa;Initial Catalog=pubs;Data Source=mySQLServer"
    Dim mySelectQuery As String = "SELECT * FROM Authors"
    Dim myConnection As New SqlConnection(myConnString)
    Dim myCommand As New SqlCommand(mySelectQuery, myConnection)
    myConnection.Open()

    Dim myReader As SqlDataReader
    myReader = myCommand.ExecuteReader()
    Dim RecordCount As Integer
    Try
        While myReader.Read()
            RecordCount = RecordCount + 1
        End While

        If RecordCount = 0 then
            MessageBox.Show("No data returned")
        Else
            MessageBox.Show("Number of Records returned: " & RecordCount)
        End If
    Catch ex As Exception
        MessageBox.Show(ex.ToString())
    Finally
        myReader.Close()
        myConnection.Close()
    End Try
End Sub