private Function Exec_prc_{% objPB.Print objTable.Name %}_upd() As Long
 Dim strSQL As String
 Dim objCmd As New ADODB.Command
 Dim objCn  As New ADODB.Connection
 
	On Error GoTo PROC_ERR
 
	strSQL = "prc_{% objPB.print objTable.Name %}_upd"
 
	objCn.Open {% objPB.Print Chr(34) & objPB.Database.Connection_String & Chr(34) _
  %}
end function