Dim cmdOracle As New System.Data.OracleClient.OracleCommand(StoredProcedure, _
  m_Connection.OracleConnection, m_OracleTransaction)
                    cmdOracle.CommandType = Data.CommandType.StoredProcedure
                    If Not Parameters Is Nothing Then
                        For Each Param As ACExport.modStructures.SQLParameter _
                          In Parameters
                            With cmdOracle.Parameters.AddWithValue("P" & _
                            Param.Name, Param.Value)
                                .Direction = ParameterDirection.Input
                                Select Case Param.Type
                                    Case _
                                      ACExport.modStructures.SQLParameterType.D_
                                      ateTime
                                        .DbType = Data.DbType.DateTime
                                    Case _
                                      ACExport.modStructures.SQLParameterType.S_
                                      tring
                                        .DbType = Data.DbType.String
                                    Case modStructures.SQLParameterType.DateTime
                                        .DbType = Data.DbType.DateTime
                                    Case SQLParameterType.Int64
                                        .DbType = DbType.Int64
                                    Case SQLParameterType.Int32
                                        .DbType = DbType.Int32
                                    Case SQLParameterType.Int16
                                        .DbType = DbType.Int16
                                    Case SQLParameterType.Int8
                                        .DbType = DbType.Single
                                    Case SQLParameterType.Cursor
                                        .OracleType = _
                                          OracleClient.OracleType.Cursor
                                        .Direction = ParameterDirection.Output
                                        .Value = Nothing
                                End Select
                            End With
                        Next
                    End If
                    Return cmdOracle.ExecuteNonQuery()