How to add new column into datagrid in VB6

You can use this code for Show All Datas in your database :rose:  :) 



Private SqlCon As New System.Data.SqlClient.SqlConnection("server=.;user id=sa;pwd=sqlmaster;data source=.;database=ParsContract")

Private tbl As New DataTable
Private dvw As DataView
Private b As Boolean
Private cmd As New SqlClient.SqlCommand("SELECT * FROM Personalinfo", sqlcon)


sqlcon.Open()
Dim sdr As SqlClient.SqlDataReader = cmd.ExecuteReader
Dim fc As Integer
While (sdr.Read)
    'populating columns
    If Not b Then
        For fc = 0 To sdr.FieldCount - 1
            tbl.Columns.Add(sdr.GetName(fc))
        Next
        b = True
    End If
    'populating rows
    Dim row As DataRow = tbl.NewRow
    For fc = 0 To sdr.FieldCount - 1
        row(fc) = sdr(fc)
    Next
    tbl.Rows.Add(row)
End While
dvw = New DataView(tbl)
Me.dgrPersonalInfo.DataSource = dvw
sqlcon.Close()

Set col = DataGrid1.Columns.Add(0)
col.FieldName = "abc"
col.Caption = "xyz"