[Rabeea Qbaha]

جرب ان اعرض البيانات بدون التعديل علو ال header 

اذا لم تظهر البيانات تاكد من جمله الاتصال 

كود :

'فحص الاتصال بقاعدة البيانات
           If con.State = ConnectionState.Open Then
               con.Close()
           End If
           con.Open()
           Dim strSQL As String = "SELECT * FROM projact"

           Dim da As New OleDbDataAdapter(strSQL, con)
           Dim ds As New DataSet
           da.Fill(ds, "projact")
           DataGridView1.DataSource = ds.Tables(0)
           con.Close()