Fill ListView with SQL Server Database Record

CN.ConnectionString = "Data Source = " & System.Environment.MachineName & "\SQLEXPRESS; Initial Catalog = YourDB;Integrated Security = True"

CN.Open()

Dim strSQL As String
Ds.Clear()

strSQL = "SELECT Field1, Field2 FROM TableName"
Da = New SqlDataAdapter(strSQL, CN)
Da.Fill(Ds, "TableName")
CN.Close()
MaxRows = Ds.Tables("TableName").Rows.Count
inc = -1

If MaxRows = 0 Then
MsgBox("No record found for your search!", MsgBoxStyle.Information)
Ds.Clear()
ListView1.Clear()
Exit Sub
Else
ListView1.Clear()
ListView1.View = View.Details
Dim dt As DataTable = Ds.Tables("TableName")

For Each c As DataColumn In dt.Columns
ListView1.Columns.Add(c.ColumnName, 100)
Next

For Each r As DataRow In dt.Rows
Dim item As New ListViewItem(r(0).ToString())
For i As Integer = 1 To dt.Columns.Count - 1
item.SubItems.Add(r(i))
Next
ListView1.Items.Add(item)
Next
End If

If CN.State = ConnectionState.Open Then CN.Close()