كيف يمكن معرفة عدد السجلات في جدول

Con.Open()
        Dim cmd As New OleDbCommand()
        cmd.CommandText = "select Count(*) from Mobiles"
        cmd.Connection = Con

        Dim RecordCount As Integer

        RecordCount = cmd.ExecuteScalar
        TextBox1.Text = RecordCount

        Con.Close()