Public Function SelRecords() As Long
 
    Dim i As Long
    Dim db As DAO.Database
    Dim rstSel As DAO.Recordset
    Dim rst As DAO.Recordset
    Dim lPrID As Long
    
 On Error GoTo HandleErr
    
    Set db = CurrentDb
    If Me.SelHeight =  0  Then Exit Function
    lPrID = Forms( "frmPriceListParameters" )( "PriceListID" )
    Set rstSel = Me.RecordsetClone
    Set rst = db.OpenRecordset( "SELECT * FROM tblGoodsForPriceList" , dbOpenDynaset, dbAppendOnly)
    rstSel.MoveFirst
    rstSel.Move Me.SelTop -  1 
    Painting = False
    For i =  1  To Me.SelHeight
        With rst
            .AddNew
                !PriceListID = lPrID
                !prlGoodID = rstSel!GoodID
            .Update
        End With
        rstSel.MoveNext
   Next i
ExitHere:
    Painting = True
    On Error Resume Next
    db.Close
    Set db = Nothing
    rst.Close
    Set rst = Nothing
    rstSel.Close
    Set rstSel = Nothing
    Exit Function
HandleErr:
    Select Case Err.number
        Case Else
            MsgBox  "Error "  & Err.number &  ": "  & Err.Description, vbCritical,  "Form_fsubGoodList.SelRecords" 
    End Select

End Function