Sub putjobnr(jobnr As String)
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_animal"
cmd.Parameters = Array As Object(jobnr,jobnr,jobnr,"Null","Null","Null","Null","Null","Null","Null","Null","Null","Null","Null","Null","Null","Null","Null","Null","Null")
reqManager. xxxxxx here how to ?
End Sub