who to count number of rows in a sql table with vb.net using sqlclient class

Dim cc As SqlConnection = New SqlConnection(" Server=(localdb)\Projects;Database=question;Uid=sa;Pwd=12345;")


Dim cmd As SqlCommand = New SqlCommand("SELECT count (qnumber) FROM tencmpC1", cc)


Dim adp As New SqlDataAdapter(cmd)
cmd.Connection.Open()

wes aday this is just text code i do all thing?
also google too much

ull code Imports System.Data

Imports System.Data.SqlClient
Class MainWindow

Private Sub button1_Click(sender As Object, e As RoutedEventArgs) Handles button1.Click
list.Items.Add(txt2.Text)
Dim item As String = String.Empty
' txt1.Text = list.SelectedItem
If (list.SelectedIndex = 0) Then

item = "Umcq"
End If
If (list.SelectedIndex = 1) Then

item = "Emcq"
End If
If (list.SelectedIndex = 2) Then

item = "Umcq,Emcq"
End If
' txt1.Text = item

' Dim cmd As SqlCommand = New SqlCommand("SELECT * FROM tencmpC1", New SqlConnection(" Server=(localdb)\Projects;Database=question;Uid=sa;Pwd=12345;"))
Dim cc As SqlConnection = New SqlConnection(" Server=(localdb)\Projects;Database=question;Uid=sa;Pwd=12345;")


'Dim cmdd As SqlCommand = New SqlCommand("SELECT qnumber," + item + " FROM tencmpC1", cc)
'Dim adpp As New SqlDataAdapter(cmdd)
'cmdd.Connection.Open()
'Dim dss As New DataSet
'Dim dtt As New DataTable
'adpp.Fill(dss)
'dtt = dss.Tables(0)
'Dim count As Integer = dtt.Rows.Count

'txt1.Text = count








Try



Dim cmd As SqlCommand = New SqlCommand("SELECT qnumber," + item + " FROM tencmpC1", cc)
' Dim cmd As SqlCommand = New SqlCommand("SELECT * FROM tencmpC1", cc)

' txt1.Text = cmd


Dim adp As New SqlDataAdapter(cmd)
cmd.Connection.Open()















Dim total As String = 0
For i As Integer = 0 To grid.RowCount - 1
total += DataGridView1.Rows(i).Cells(2).Value
'Change the number 2 to your column index number (The first column has a 0 index column)
'In this example the column index of Price is 2
Next
txt2.Text = total





'Dim oleRdr As SqlDataReader = cmd.ExecuteReader
''txt1.Text = oleRdr.HasRows

'If oleRdr.HasRows = True Then
' oleRdr.Read()
' 'Dim count As Integer
' 'While oleRdr.Read()
' ' count = count + 1
' 'End While
' 'txt1.Text = count
' ''Response.Write("name</br>" & oleRdr.Item(0) & "</br>")
' If oleRdr.Item(0) = 40 Then
' 'start
' txt1.Text = "ok"
' Else

' ' MessageLabel.Text = ""
' txt1.Text = "UserName already exist"
' 'txt1.Text = (oleRdr.GetValues())
' 'username is not available
' End If
'End If

'oleRdr.Close()










' Dim ds As DataSet = New DataSet
Dim ds As DataTable = New DataTable
'adp.Fill(ds, "tencmpC1")
adp.Fill(ds)
grid.ItemsSource = ds.DefaultView

Dim dss As New DataSet
'Dim dtt As New DataTable
'adpp.Fill(dss)
ds = dss.Tables(0)
Dim count As Integer = ds.Rows.Count

txt1.Text = count


'Dim adp As New SqlDataAdapter(cmd)
'cmd.Connection.Open()
'Dim ds As New DataSet()
'adp.Fill(ds)
'grid.ItemsSource = ds
'cmd.ExecuteReader()

''grid.DataBind()

'adp.Dispose()
'ds.Dispose()

'cmd.Connection.Dispose()


Catch ex As Exception
txt1.Text = ex.Message



End Try


End Sub

Private Sub ComboBox_SelectionChanged(sender As Object, e As SelectionChangedEventArgs)

End Sub

Private Sub ComboBox_SelectionChanged_1(sender As Object, e As SelectionChangedEventArgs)

End Sub

Private Sub txt2_TextChanged(sender As Object, e As TextChangedEventArgs) Handles txt2.TextChanged

End Sub
End Class