Dim cmd As New OleDb.OleDbCommand("xSDIncident01_Create_Update", cnn)
        cmd.CommandType = CommandType.StoredProcedure
        With cmd.Parameters
            '.Add("RETURN_VALUE", OleDbType.Integer).Direction = ParameterDirection.ReturnValue
            .Add("@IncidentID", OleDbType.Integer).Value = m_IncidentID
            .Add("@LocationID", OleDbType.Integer).Value = Nz(Me.LocationID.SelectedValue,  0 )
            .Add("@DateTime", OleDbType.DBDate).Value = m_DateTime
            .Add("@CreatedUser", OleDbType.VarChar).Value = Me.CreatedUser.Text
            .Add("@SourceID", OleDbType.Integer).Value = Me.SourceID.SelectedValue
            .Add("@PhoneNumber", OleDbType.VarChar).Value = Me.PhoneNumber.Text
            .Add("@CreatedCompName", OleDbType.VarChar).Value = Me.CreatedCompName.Text
            .Add("@Message", OleDbType.VarChar).Value = Me.Message.Text
        End With
        Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader
        ufFillControls(dr)

ALTER  proc xSDIncident01_Create_Update
						(
						@IncidentID int = null, 
						@LocationID int, 
						@DateTime datetime,
						@CreatedUser nvarchar( 50 ), 
						@SourceID int, 
						@PhoneNumber varchar( 200 ), 
						@CreatedCompName nvarchar( 50 ), 
						@Message varchar( 400 )
						) as
begin