[حريف برمجة]

هذا الكود كامل قم بتجريبه واخبرني بالنتيجة

كود :

Threading.Thread.CurrentThread.CurrentCulture = New Globalization.CultureInfo("ar-eg")
        Threading.Thread.CurrentThread.CurrentUICulture = New Globalization.CultureInfo("ar-eg")

 Dim dp As New OleDb.OleDbDataAdapter("select T_Name,T_Tel1,data_end from T_Tel WHERE data_end <='" & Date.Now.AddDays(-30).ToString("dd/MM/yyyy") & "'", con)
[color=#363636][size=small][font='Exo 2', sans-serif]       Dim ds As New DataSet[/font][/size][/color]

[color=#363636][size=small][font='Exo 2', sans-serif]       dp.Fill(ds)[/font][/size][/color]

       DataGridView1.DataSource = ds.Tables(0)