Android Question Input Output Parameters Stored Procedure (JdbcSQL)

Private Sub Save_Record
    Dim New_code As Long
    Dim Code_Description As String
    Dim Inserted_Code As Long
    
        Try
        New_code=txt_code
        Code_Description=txt_description.Text
        
        
        Dim cs As Object = mysql.CreateCallStatement("exec Save_Codes(?,?,?)", Array( New_code,Code_Description, Inserted_Code))
        Dim rs As JdbcResultSet = mysql.ExecCall(cs)
        rs.Close
        MsgboxAsync("Inserted Code is: ",  Inserted_Code)

    Catch
        MsgboxAsync("Error : "& LastException.Message,"Error")
    End Try
End Sub