[بدري]

ما تقصد "مع" ؟ تحتاج توضيح 
هل تقصد اضهار العمر مع الاسم في الاسم الاكثر تسجيلا

اذا كان كذلك فلا تصلح ExecuteScalar

وتحتاج لهذا الكود
Dim nameResult As String = ""
Dim ageResult As String = ""

Private Function COUNTtop() As String
   Dim d As New SQLiteDataAdapter("SELECT name,age FROM BKDXclust GROUP BY name ORDER BY count(name) DESC ", conn)
   Dim t As New DataTable
   If d.Fill(t) > 0 Then
       nameResult = t.Rows(0)("name").ToString
       ageResult = t.Rows(0)("age").ToString
   End If
   Return nameResult & " - " & ageResult
End Function

---

او

Private Function COUNTtop() As String
Dim rrr5 As String = ""
    Dim d As New SQLiteDataAdapter("SELECT name,age FROM BKDXclust GROUP BY name ORDER BY count(name) DESC ", conn)
    Dim t As New DataTable
    If d.Fill(t) > 0 Then
        rrr5 = t.Rows(0)("name").ToString & " - " & t.Rows(0)("age").ToString
    End If
    Return rrr5
End Function