[mrfenix93]

كود :

       Dim sql = ("select * from AC_Mark ")
       Dim adp As New SqlClient.SqlDataAdapter(sql, sqlconn)
       Dim ds As New DataSet
       adp.Fill(ds)
       Dim dt = ds.Tables(0)
       DGV1.AutoGenerateColumns = False
       DGV1.DataSource = dt
    DGV1.Columns["???????"].ReadOnly = false

وحضرتك تحدد الحقل الذي تريد