Private Sub Form_Load() > On Error GoTo ErrHandler: > > Set obmData = New BM_Data > Set oRs = obmData.GetRecordSet("BasinTypeList") > > Dim ExpColWidth As Integer > > oRs.MoveFirst > With grdSelect > ExpColWidth = .Width - 2000 > Set .DataSource = oRs > .ColWidth(0, 0) = 0 > .ColWidth(1) = 0 > .ColWidth(2) = ExpColWidth > .ColWidth(3) = 0 > .ColWidth(4) = 0 > .ColWidth(5) = 500 > .ColWidth(6) = 500 > .ColWidth(7) = 800 > .ColHeaderCaption(0, 2) = "Basin Code" > .ColHeaderCaption(0, 5) = "Width" > .ColHeaderCaption(0, 6) = "Depth" > .ColHeaderCaption(0, 7) = "Wall Thickness" > > End With > > Set oForm = New frmBasinTypeDetail > SelectGrdClicked = False > > Exit Sub >ErrHandler: > ErrorHandler.ShowError "frmLuBasinType", "Form_Load" > Exit Sub >End Sub>
dim strFS as String strFS = " |Mother|^Father|Son|Daughter|" MyGrid.FormatString = strFSHTH, Igor