[hamada558]

حبيبي حريف، استخدامك لتنسيق الرد داخل الكود سبب ربكة لحبيبنا نسيم.
حبيبي حريف، اعتمادك التاريخ بشكل نص ليست الطريقة الصحيحة.

حبيبي نسيم، لو تذكر الكود الاضافي يلي وضعتو لك، بامكانك وضع اسماء الحقول بعد كلمة SELECT منشان تقدر تقرها
حاول تقرا الكود جيدا وتستنتج ماذا وضعت وماذا عدلت لتعطيك النتيجة، وبهيك ممكن تتعلم الطريقة وتعدل بنفسك

كود :

Shared Function check() As String

        Dim dt As New DataTable
        Dim ret As Integer = New OleDb.OleDbDataAdapter("SELECT T_Name, T_Tel1, DateDiff ('d', Now(), data_end) As days FROM T_Tel WHERE DateDiff ('d', Now(), data_end) < 30", con).Fill(dt)

        Dim sb As New System.Text.StringBuilder
        If ret > 0 Then
            sb.AppendLine("الاسماء والايام المتبقية")
            For Each r As DataRow In dt.Rows
                sb.AppendLine(r("T_Name") & " (" & r("T_Tel1") & ") = " & r("days"))
            Next
        End If

        Return sb.ToString
    End Function