Dim Reader As SqlClient.SqlDataReader
Dim RecordCount As Integer = 0
SqlConnection1.Open()
Reader = SqlDataAdapter1.SelectCommand.ExecuteReader()
Dim Records As String
While Reader.Read()
Dim i As Integer = 0
For i = 0 To Reader.FieldCount - 1
Records &= Reader(i) & "-"
Next
RecordCount += 1
End While
SqlConnection1.Close()