Hi all,



public sub get_code_from_key()

Dim loBO = New BO_Library.employee

loBO.FillByPrimaryKey(4)

Dim lcCode As String = loBO.CurrentRow(1)

End sub



Above sub module is work. How do i convert into function and parameter BO's name is passing?





public function get_code_from_key(byval BO as ???, byval key as integer)

Dim loBO = New BO_Library.BO

loBO.FillByPrimaryKey(key)

Dim lcCode As String = loBO.CurrentRow(1)

Return lcCode

End function





** My collection of BO is under assembly BO_Library





Please help...