Code:
Private Sub LandDetailsCreateDataGrid()
DataGridViewLandDetails.Visible = True
If DataGridViewLandDetails.Columns.Count = 0 Then
Me.DataGridViewLandDetails.Columns.Add("memberid", "memberid")
Me.DataGridViewLandDetails.Columns.Add("serialnumber", "serialnumber")
Me.DataGridViewLandDetails.Columns.Add("customerid", "customerid")
Me.DataGridViewLandDetails.Columns.Add("landvillagecode", "landvillagecode")
Me.DataGridViewLandDetails.Columns.Add("surveynumber", "surveynumber")
Me.DataGridViewLandDetails.Columns.Add("oldsurveynumber", "oldsurveynumber")
Me.DataGridViewLandDetails.Columns.Add("pattanumber", "pattanumber")
Me.DataGridViewLandDetails.Columns.Add("ownershiptype", "ownershiptype")
Me.DataGridViewLandDetails.Columns.Add("areainhectare", "areainhectare")
Me.DataGridViewLandDetails.Columns.Add("cultivationareainhectare", "cultivationareainhectare")
Me.DataGridViewLandDetails.Columns.Add("leaseareagiveninhectare", "leaseareagiveninhectare")
Me.DataGridViewLandDetails.Columns.Add("leaseareaintakenhectare", "leaseareaintakenhectare")
Me.DataGridViewLandDetails.Columns.Add("areainhector1", "areainhector1")
Me.DataGridViewLandDetails.Columns.Add("areainhector2", "areainhector2")
Me.DataGridViewLandDetails.Columns.Add("areainhector3", "areainhector3")
Me.DataGridViewLandDetails.Columns.Add("areainacre", "areainacre")
Me.DataGridViewLandDetails.Columns.Add("areaincent", "areaincent")
Me.DataGridViewLandDetails.Columns.Add("partowneredyesno", "partowneredyesno")
Me.DataGridViewLandDetails.Columns.Add("partownedareainacre", "partownedareainacre")
Me.DataGridViewLandDetails.Columns.Add("partownedareaincent", "partownedareaincent")
Me.DataGridViewLandDetails.Columns.Add("landcharacteristictype", "landcharacteristictype")
Me.DataGridViewLandDetails.Columns.Add("numberofwells", "numberofwells")
Me.DataGridViewLandDetails.Columns.Add("numberofpumpsets", "numberofpumpsets")
Me.DataGridViewLandDetails.Columns.Add("cultivationareainhector1", "cultivationareainhector1")
Me.DataGridViewLandDetails.Columns.Add("cultivationareainhector2", "cultivationareainhector2")
Me.DataGridViewLandDetails.Columns.Add("cultivationareainhector3", "cultivationareainhector3")
Me.DataGridViewLandDetails.Columns.Add("cultivationareainacre", "cultivationareainacre")
Me.DataGridViewLandDetails.Columns.Add("cultivationareaincent", "cultivationareaincent")
Me.DataGridViewLandDetails.Columns.Add("cultivatedcrop", "cultivatedcrop ")
Me.DataGridViewLandDetails.Columns.Add("leaseareagiveninhector1", "leaseareagiveninhector1")
Me.DataGridViewLandDetails.Columns.Add("leaseareagiveninhector2", "leaseareagiveninhector2")
Me.DataGridViewLandDetails.Columns.Add("leaseareagiveninhector3", "leaseareagiveninhector3")
Me.DataGridViewLandDetails.Columns.Add("leaseareagiveninacre", "leaseareagiveninacre")
Me.DataGridViewLandDetails.Columns.Add("leaseareagivenincent", "leaseareagivenincent")
Me.DataGridViewLandDetails.Columns.Add("lesseecustomerid", "lesseecustomerid ")
Me.DataGridViewLandDetails.Columns.Add("lesseename", "lesseename ")
Me.DataGridViewLandDetails.Columns.Add("lesseeaddress1", "lesseeaddress1")
Me.DataGridViewLandDetails.Columns.Add("lesseeaddress2", "lesseeaddress2")
Me.DataGridViewLandDetails.Columns.Add("lesseecity", "lesseecity")
Me.DataGridViewLandDetails.Columns.Add("lesseepin", "lesseepin")
Me.DataGridViewLandDetails.Columns.Add("lesseestate", "lesseestate")
Me.DataGridViewLandDetails.Columns.Add("leaseareatakeninhector1", "leaseareatakeninhector1")
Me.DataGridViewLandDetails.Columns.Add("leaseareaintakenhector2", "leaseareaintakenhector2")
Me.DataGridViewLandDetails.Columns.Add("leaseareaintakenhector3", "leaseareaintakenhector3")
Me.DataGridViewLandDetails.Columns.Add("leaseareaintakenacre", "leaseareaintakenacre ")
Me.DataGridViewLandDetails.Columns.Add("leaseareaintakencent", "leaseareaintakencent")
Me.DataGridViewLandDetails.Columns.Add("leasecustomerid", "leasecustomerid")
Me.DataGridViewLandDetails.Columns.Add("ownername", "ownername ")
Me.DataGridViewLandDetails.Columns.Add("owneraddress1", "owneraddress1")
Me.DataGridViewLandDetails.Columns.Add("owneraddress2", "owneraddress2")
Me.DataGridViewLandDetails.Columns.Add("ownercity", "ownercity ")
Me.DataGridViewLandDetails.Columns.Add("ownerpin", "ownerpin ")
Me.DataGridViewLandDetails.Columns.Add("ownerstate", "ownerstate")
Me.DataGridViewLandDetails.Columns.Add("landvalue", "landvalue")
Me.DataGridViewLandDetails.Columns.Add("amountborrowed", "amountborrowed")
End If
End Sub