Public Function LinkRef(ByVal RefType As String, ByVal RefrenId As Long) As Integer


Dim cmd        As ADODB.Command
Dim Prm1       As ADODB.Parameter
Dim Prm2       As ADODB.Parameter
Dim Prm3       As ADODB.Parameter



Set cmd = New ADODB.Command
cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandText = ( "mk_sp_SinhRef" )
cmd.CommandType = adCmdStoredProc

Set Prm1 = cmd.CreateParameter(Reftp, adVarChar, adParamInput,  5 , RefType)
cmd.Parameters.Append Prm1

Set Prm2 = cmd.CreateParameter(RefId, adInteger, adParamInput, , RefrenId)
cmd.Parameters.Append Prm2

Set Prm3 = cmd.CreateParameter(Vozvrat, adInteger, adParamOutput)
cmd.Parameters.Append Prm3

cmd.Execute

LinkRef = cmd.Parameters( 2 )

End Function