Can anyone please tell me how do I get the total row in my ms access table and put in my label.text at vb.net?

This is how I did it.

 Sub countR()
 ConnDB()
 Dim sql As String = "select COUNT (*) FROM register"
 Dim cmd As New OleDbCommand(sql, conn)
 dr = cmd.ExecuteReader()
 While (dr.Read())
 lblTotalR.Text = (dr(0).Tostring())
 End While
 End Sub