Public Sub SetDGVheader()

        With DGridUser

            .Columns("UserID").HeaderText = "رقم المستخدم"

            .Columns("UserfullName").HeaderText = "الاسم الكامل للمستخدم"

            .Columns("UserUserName").HeaderText = "اسم المستخدم"

            .Columns("Addresss").HeaderText = "العنوان"

            .Columns("UserMobile").HeaderText = "رقم الموبايل"

        End With

    End Sub

 

()Public Sub loadusers

        adapter = New SqlDataAdapter("select * from Users", sqlcon)

        Dim dt = New DataTable

        adapter.Fill(dt)

        DGridUser.DataSource = dt 

    

    End Sub